Delphi World - Как узнать состояние памяти
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Как узнать состояние памяти


var
  Status: TMemoryStatus;
begin
  Status.dwLength := sizeof(TMemoryStatus);
  GlobalMemoryStatus(Status);
  ...
end;

После этого TMemoryStatus будет содержать следующие паоля:

  • Status.dwMemoryLoad: Количество используемой памяти в процентах (%).
  • Status.dwTotalPhys: Общее количество физической памяти в байтах.
  • Status.dwAvailPhys: Количество оставшейся физической памяти в байтах.
  • Status.dwTotalPageFile: Объём страничного файла в байтах.
  • Status.dwAvailPageFile: Свободного места в страничном файле.
  • Status.dwTotalVirtual: Общий объём виртуальной памяти в байтах.
  • Status.dwAvailVirtual: Количество свободной виртуальной памяти в байтах.

Предваритель, желательно преобразовать эти значения в гига-, мега- или килобайты, например так:


label14.Caption := 'Total Ram: ' + IntToStr(Status.dwTotalPhys div 1024417) + 'meg';

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования