Самый простой способ - использовать следующую функцию
Function GetRAMSize:integer;
var MS : TMemoryStatus;
Begin
GlobalMemoryStatus(MS);
Result := MS.dwTotalPhys;
end;
Функция возвращает размер ОЗУ в байтах. В общем функция
GlobalMemoryStatus заполняет структуру типа TMemoryStatus, которая имеет ряд
достаточно полезных полей:
dwTotalPhys - Полный объем ОЗУ (т.е.
физической памяти)
dwAvailPhys - Свободный объем ОЗУ (как правило
небольшая величина)
dwTotalVirtual - Полный объем виртуальной
памяти
dwAvailVirtual - Свободный объем виртуальной
памяти
dwMemoryLoad - Процент использования памяти (0-не используется,
100-используется вся)
dwTotalPageFile - Общий размер данных (в байтах),
которые могут быть сохранены в файле подкачки (но это не является его
размером на диске !!)
dwAvailPageFile - Доступный объем в файле
подкачки
Прим. Перевод названий корявый - подробности в win32.hlp
:))
|
Copyright ©
"Мастера DELPHI" E-mail:
delphi@mastak.com
http://www.delphimaster.ru |
Источник получения информации: http://www.delphimaster.ru
|