ОЗУ: информация

[Євгеній Бєлік]

Добрый вечер!
Кто знает как можно реализировать програму, которая бы узнавала сколько количество оперативной памяти у машины? я знаю только то, что функция GlobalMemoryStatus определяет количество до 2 ГБ, а вот функция GlobalMemoryStatusEx - более чем 2 Гб, только вот как ёё реализировать.

[Rock-n-Rolla]

GlobalMemoryStatusEx, там же и пример использования. я думаю переписать на Delphi не составит проблем

[3D Hunter]

Создайте переменную типа TMemoryStatusEx и передавайте ее в вашу функцию. Метод заполнит эту структуру и вы можете работать с ней.
Например так:

var
  LMemStat:TMemoryStatusEx;
  LStr:AnsiString;
begin
  LMemStat.dwLength:=SizeOf(TMemoryStatusEx);
  if GlobalMemoryStatusEx(LMemStat)=False then
    ShowMessage('Error!')
  else
  with LMemStat do
  begin
    LStr:=
          'Total RAM: '+IntToStr(ullTotalPhys div 1048576)+#13#10+
          'Available RAM: '+IntToStr(ullAvailPhys div 1048576);
    ShowMessage(LStr);
  end;
end;