Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];



Вниз

Программа и ОЗУ 

Xeon   (2001-11-10 19:57) [0]

Как узнать сколько ОЗУ занимает программа?

---

paul_shmakov   (2001-11-11 02:02) [1]


var
memstat: MEMORYSTATUS;
UsedMemory: Cardinal;
begin
memstat.dwLength := sizeof(memstat);
GlobalMemoryStatus(@memstat);

UsedMemory := memstat.dwTotalVirtual - memstat.dwAvailVirtual;



в переменной UsedMemory будет объем зарезервированной процессом виртуальной памяти. физической, естественно, может быть занято намного меньше.

---

Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.71 MB
Время: 0.022 c