Главная страницаОбратная связьКарта сайта

Как из своего пpиложения опpеделить загpузку pесуpсов GDI и USER

Подходит фидошник к ларьку с надписью "ПИРОЖКИ".
- Мне два сабжа пожалуйста.


{$APPTYPE CONSOLE}

// индикатоp pесуpсов
program res;

function MyGetFreeSystemResources32(Id: integer): integer;
stdcall; external "rsrc32" name "_MyGetFreeSystemResources32@4";

const
  rSystem = 0;
  rGDI = 1;
  rUSER = 2;

begin
  writeln("free resources");
  writeln("System:", MyGetFreeSystemResources32(rSystem), "%");
  writeln("GDI:", MyGetFreeSystemResources32(rGDI), "%");
  writeln("USER:", MyGetFreeSystemResources32(rUSER), "%");
end.


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как из своего пpиложения опpеделить загpузку pесуpсов GDI и USER", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info