如何取得当前程序占用的内存总数?

Question

我确信DELPHI有这个函数，但是忘了，请知道的朋友指点

Answer 1

function MemInfo :Integer;
var
  Mem: TMEMORYSTATUS;
begin
  Mem.dwLength := Sizeof(TMEMORYSTATUS);
  GlobalMemoryStatus(Mem);
  result := Mem.dwAvailPhys div 1024;   
end;

Answer 2

var
  MS: TMemoryStatus;
begin
  GlobalMemoryStatus(MS);
  PhysMem.Caption := FormatFloat('#,###" KB"', MS.dwTotalPhys / 1024);
  FreeRes.Caption := Format('%d %%', [MS.dwMemoryLoad]);
end;