Hallo,
kann ich dir zwar nicht sagen, dennoch solltest du wissen dass du die Handles, die OpenProcess zurückliefert auch wieder schließen mußt!
Oder du machst es so:
Delphi-Quellcode:
function getMyMemoryUsageInKb : integer;
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 div 1024
else
result := -1;
FreeMem(pmc);
end;