Как узнать состояние памяти?

Страница 1 из 2

Code:

var

Status : TMemoryStatus;

begin

Status.dwLength := sizeof( TMemoryStatus );

GlobalMemoryStatus( Status );

...

После этого 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';

Новые статьи