Delphi tips: Как узнать сколько памяти занимает программа?
Данный вариант будет работать только под системами на базе Windows NT/2k/XP и выше.
<br/>---------------------------------
<br/>
<br/>uses psAPI;
<br/><br/>function GetUsedMemory;
<br/>var
<br/> pmc: PPROCESS_MEMORY_COUNTERS;
<br/> cb: Integer;
<br/>begin
<br/> cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
<br/> GetMem(pmc, cb);
<br/> pmc^.cb := cb;
<br/> if GetProcessMemoryInfo(GetCurrentProcess(), pmc, cb) then
<br/> result:=pmc^.WorkingSetSize
<br/> else
<br/> result:=0;
<br/><br/> FreeMem(pmc);
<br/>end;
<br/>
Данный вариант будет работать только под системами на базе Windows NT/2k/XP и выше.
---------------------------------
---------------------------------
uses psAPI;
function GetUsedMemory;
var
pmc: PPROCESS_MEMORY_COUNTERS;
cb: Integer;
begin
cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
GetMem(pmc, cb);
pmc^.cb := cb;
if GetProcessMemoryInfo(GetCurrentProcess(), pmc, cb) then
result:=pmc^.WorkingSetSize
else
result:=0;
FreeMem(pmc);
end;
Лента материалов
Правила размещения комментариев
Соблюдение Правил конференции строго обязательно!
Флуд, флейм и оффтоп преследуются по всей строгости закона!
Комментарии, содержащие оскорбления, нецензурные выражения (в т.ч. замаскированный мат), экстремистские высказывания, рекламу и спам, удаляются независимо от содержимого, а к их авторам могут применяться меры вплоть до запрета написания комментариев и, в случае написания комментария через социальные сети, жалобы в администрацию данной сети.
Сейчас обсуждают