Как получить весь размер системной памяти?

Дата: 01.01.2007

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