delphi 当前进程（应用程序）内存使用情况

当前进程（应用程序）内存使用情况：

function ProcessMemory: longint;

var

  pmc: PPROCESS_MEMORY_COUNTERS;

  cb: Integer;

begin

  // Get the used memory for the current process

  cb := SizeOf(TProcessMemoryCounters);

  GetMem(pmc, cb);

  pmc^.cb := cb;

  if GetProcessMemoryInfo(GetCurrentProcess(), pmc, cb) then

     Result:= Longint(pmc^.WorkingSetSize);

  FreeMem(pmc);

end;