内存百分比计算公式

Question

请问我要计算机内存占用百分之多少应该怎么样计算机哇
我现在可以的到以下几个值
  '实际内存总字节数 ：
  '可用的实际内存字节数：
  '分页文件总字节数 ：
  '分页文件可用字节数 ：
  '虚拟内存的总字节数 ：
  '可用的虚拟内存字节数：
我就是不清楚怎么换算，请指点，

Answer 1

var
  status : TMemoryStatus;
  rate   : single;
begin
  GlobalMemoryStatus(status);
  rate := ((status.dwTotalPhys-status.dwAvailPhys)+(status.dwTotalVirtual-status.dwAvailVirtual))/(status.dwTotalPhys+status.dwTotalVirtual)*100;
  showmessage(Format('%.2f%%',[rate]));
end;
内存使用比应该是:（已用物理内存＋已用虚拟内存）/（物理内存总数＋虚拟内存总数）
不知道是否正确？
另外status.dwMemoryLoad 是物理内存的使用比率(2000 and later)