"AND" "OR"
Главная Информер Журнал Форум

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

 

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