delphi获取电脑内存使用情况

var
  status : TMemoryStatus;
  rate   : single;




begin
 GlobalMemoryStatus(status);
 // showmessage(floattostr(status.dwMemoryLoad));
// showmessage(floattostr((status.dwAvailPageFile)/1024/1024));
  showmessage(floattostr((status.dwTotalPageFile-status.dwAvailPageFile)/1024/1024/1024));