Как определить количество свободной памяти?

Для определения количества свободной физической памяти в байтах можно использовать функцию:

function MemAvail: LongInt;

но чаще всего, интерес представляет не количество свободных байт, а количество свободных системных ресурсов. Даже при почти полностью свободной памяти может не хватить, этих самых, системных ресурсов.

Для определения количества свободных системных ресурсов в процентах используется функция GetFreeSystemResources:

function GetFreeSystemResources(SysResource: Word): Word;

Параметр SysResource:
GFSR_SYSTEMRESOURCES - Количество свободных системных ресурсов в процентах.
GFSR_GDIRESOURCES - Количество свободных GDI ресурсов в процентах. GDI ресурсы включают указатели контекста, кисти, карандаши, области, шрифты и битовые изображения.
GFSR_USERRESOURCES - Количество свободных пользовательских ресурсов в процентах. Эти ресурсы включают указатели окон и меню.

Пример:

 Label1.Caption := IntToStr(MemAvail DIV 1024)+' Kb'; 
 Label2.Caption := IntToStr(GetFreeSystemResources
                   (GFSR_SYSTEMRESOURCES))+'%';

Последние комментарии

  • http://new-rutor.org
  • Производство матрацев. Реализация текстильной продукции https://goo.gl/5WYADp - подушка детская купить оптом - любые объемы, - матрасы высочайшего качества, - самые выгодные цены https://goo.gl/5WYADp - матрацы оптом
  • Норвежский Ламинин от д-ра Эскеланда http://1541.ru в 4 раза Дешевле, чем американский Laminine LPGN. Skype evg7773 Viber +380976131437 Buy The Norwegian LAMININE are 4 times more affordable http://www.getyourboomback.com/#_l_2ps as Laminine by LPGN. Реклама в Интернете. Поисковая оптимизация....

Счетчики