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

Delphi , Файловая система , Ресурсы

{$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.

Программа предназначена для отображения процента свободных системных ресурсов, конкретно для компонентов System, GDI и USER.

Чтобы объяснить, как это работает:

1. Программа начинает с объявления константы для каждого типа ресурса: rSystem, rGDI и rUSER. Эти константы имеют значения 0, 1 и 2 соответственно.
2. Затем объявляется функция _MyGetFreeSystemResources32@4, которая объявлена как внешняя процедура с именем _MyGetFreeSystemResources32.
3. Программа вызывает эту функцию три раза, передавая каждый из типов ресурсов в качестве аргумента. Функция возвращает процент свободных ресурсов для этого типа.
4. Результаты затем печатаются в консоль.

Вот как можно понять вывод:

• Будет отображаться "free resources"
• Затем будет отображаться процент свободных системных ресурсов: это процент системных ресурсов, доступных в данный момент.
• Затем будет отображаться процент свободных GDI (Graphics Device Interface) ресурсов: это процент ресурсов, используемых графическими приложениями и другими графическими приложениями.
• Наконец, будет отображаться процент свободных USER ресурсов: эти ресурсы используются приложениями и сервисами, работающими под контролем Windows API.

Ключевое слово stdcall перед объявлением функции означает, что аргументы, передаваемые в функцию, должны быть помещены на стек в обратном порядке. Строка external 'rsrc32' name '_MyGetFreeSystemResources32@4'; - это способ сообщить компилятору, где можно найти реализацию этой функции.

Вы можете запустить эту программу и увидеть, сколько свободных ресурсов у вас есть для каждого типа. Однакоplease note that the exact output will vary depending on your system's resource usage at the time of running this program.

Статья описывает способ определения загрузки ресурсов операционной системы, включая GDI и USER, с помощью функции MyGetFreeSystemResources32 в языке программирования Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Ресурсы ::