Вывести процент загруженности памяти — GlobalMemoryStatus(mem); ShowMessage(IntToStr(mem.dwMemoryLoad) + ‘ %’); // var mem: TMemoryStatus;
Вывести размер физической памяти — GlobalMemoryStatus(mem); ShowMessage(IntToStr((mem.dwTotalPhys) div 1024) + ‘ Кбайт’); // var mem: TMemoryStatus;
Вывести размер свободной физической памяти — GlobalMemoryStatus(mem); ShowMessage(IntToStr((mem.dwAvailPhys) div 1024) + ‘ Кбайт’); // var mem: TMemoryStatus;
Вывести размер страничной памяти — GlobalMemoryStatus(mem); ShowMessage(IntToStr((dwTotalPageFile) div 1024) + ‘Кбайт’); // var mem: TMemoryStatus;
Вывести размер свободной страничной памяти — GlobalMemoryStatus(mem); ShowMessage(IntToStr((dwAvailPageFile) div 1024) + ‘Кбайт’); // var mem: TMemoryStatus;
Вывести размер swap памяти — GlobalMemoryStatus(mem); ShowMessage(IntToStr((dwTotalVirtual) div 1024) + ‘Кбайт’); // var mem: TMemoryStatus;
Вывести размер свободной swap памяти — GlobalMemoryStatus(mem); ShowMessage(IntToStr((dwAvailVirtual) div 1024) + ‘Кбайт’); // var mem: TMemoryStatus;