如何才能获知系统物理内存总数？

function GetMemoryTotalPhys : DWord; 
var 
  memStatus: TMemoryStatus; 
begin 
     memStatus.dwLength := sizeOf ( memStatus ); 
     GlobalMemoryStatus ( memStatus ); 
     Result := memStatus.dwTotalPhys; 
end;