@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, чтобы получить значения в килобайтах.