读取超过2G内存，GlobalMemoryStatusEX

[HellMaster]

谁能给我个 delphi 下GlobalMemoryStatusEX 调用的例子，
我想查看系统的内存大小
谢谢
GlobalMemoryStatus 最多只能显示2G，这个就不要了

[僵哥]

type
  LPMEMORYSTATUSEX=^TMemoryStatusEx;
  TMemoryStatusEx = record
    dwLength: DWORD;
    dwMemoryLoad: DWORD;
    ullTotalPhys: Int64;
    ullAvailPhys: Int64;
    ullTotalPageFile: Int64;
    ullAvailPageFile: Int64;
    ullTotalVirtual: Int64;
    ullAvailVirtual: Int64;
    ullAvailExtendedVirtual: Int64;
  end;

  function GlobalMemoryStatusEx(const ApMemoryStatusEx : LPMEMORYSTATUSEX) : LongBool; stdcall; external 'kernel32.dll';

procedure GetPhysMemory(var PhysMem:String);
var
   statex:TMEMORYSTATUSEX;
begin
  try
    statex.dwLength := sizeof (statex);
    GlobalMemoryStatusEx (@statex);
    PhysMem:=FormatFloat('#,###', statex.ullTotalPhys/1024.0)+'KB';
  finally
  end;
end;

[HellMaster]

太感谢了，散分