(Система) Получение информации об использовании ОЗУ памяти ?

Вопрос: (Система) Получение информации об использовании ОЗУ памяти ?

Ответ:

MEMORYSTATUS ms;
GlobalMemoryStatus(&ms);
Memo1->Clear();
Memo1->Lines->Add("\tMemory Status:"); Memo1->Lines->Add("");
Memo1->Lines->Add(intToStr(ms.dwLength)+" - sizeof(MEMORYSTATUS)");
Memo1->Lines->Add(intToStr(ms.dwMemoryLoad)+" - percent of memory in use");
Memo1->Lines->Add(intToStr(ms.dwTotalPhys/1024) +" - Kbytes of physical memory");
Memo1->Lines->Add(intToStr(ms.dwAvailPhys/1024)+" - physical memory Kbytes");
Memo1->Lines->Add(intToStr(ms.dwTotalPageFile/1024)+" - Kbytes of paging file");
Memo1->Lines->Add(intToStr(ms.dwAvailPageFile/1024)+" - free Kbytes of paging file");
Memo1->Lines->Add(intToStr(ms.dwTotalVirtual/1024) +" - user Kbytes of address space");
Memo1->Lines->Add(intToStr(ms.dwAvailVirtual/1024) +" - free user Kbytes");