[dr. F.I.N.]

Попробуй:

Код:

function  GetMemUsage(PID : Integer) : Integer;
var
  hProc : THandle;
  pps : TPROCESS_MEMORY_COUNTERS;
begin
  hProc := OpenProcess(PROCESS_VM_READ or PROCESS_QUERY_INFORMATION, False, PID);
  if hProc <> 0 then 
  begin
    FillChar(pps,Sizeof(pps),0);
    pps.cb := Sizeof(pps);
    GetProcessMemoryInfo(hProc,@pps,Sizeof(pps));
    Result := pps.WorkingSetSize;
    CloseHandle(hProc);
  end 
  else      
  Result := 0;
end;

Не проверял, но пишут что работает.