Как посмотреть информацию о виртуальной памяти в delphi?

@adrien.waters 

В Delphi можно получить информацию о виртуальной памяти, используя функции из модуля Windows.

Ниже приведен пример кода, который выводит информацию о виртуальной памяти в консоль:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

uses
  Windows;

var
  MemoryStatus: TMemoryStatus;
begin
  MemoryStatus.dwLength := SizeOf(MemoryStatus);
  GlobalMemoryStatus(MemoryStatus);
  Writeln('Total Virtual Memory: ', MemoryStatus.dwTotalVirtual div 1024, ' KB');
  Writeln('Available Virtual Memory: ', MemoryStatus.dwAvailVirtual div 1024, ' KB');
end.

Этот код использует функцию GlobalMemoryStatus, которая заполняет структуру TMemoryStatus информацией о системной памяти, в том числе и о виртуальной памяти. Размеры памяти в структуре измеряются в байтах, поэтому в коде мы делим значения на 1024, чтобы получить значения в килобайтах.