Delphi FAQ - Часто задаваемые вопросы | Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа || ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |
function GetMemoryTotalPhys: DWord; var memStatus: TMemoryStatus; begin memStatus.dwLength := sizeOf (memStatus); GlobalMemoryStatus(memStatus); Result := memStatus.dwTotalPhys; end;