Моя задумка была, объяснить вам как легко можно получить информацию о системе средствами Delphi.
Мы будем использовать класс TMemoryStatus.

И так, создадим новый проект, кинем на форму Button1 и Memo1 с вкладки Standart.

Создаем событие на кнопке OnClick. Сначала создадим переменную MemoryStatus.

var MemoryStatus: TMemoryStatus;

После begin пишем:

begin
Memo1.Lines.Clear;
MemoryStatus.dwLength := SizeOf(MemoryStatus) ;
GlobalMemoryStatus(MemoryStatus) ;
with MemoryStatus
do
begin
Memo1.Lines.Add(IntToStr(dwMemoryLoad) + ‘% использовано памяти’) ;
Memo1.Lines.Add(IntToStr(dwTotalPhys) +’ — ‘+’ Всего физической памяти (в байтах)’) ;
Memo1.Lines.Add(IntToStr(dwAvailPhys) +’ — ‘+’ Доступно физической памяти (в байтах)’) ;
Memo1.Lines.Add(IntToStr(dwTotalPageFile) +’ — ‘+’ Всего виртуальной памяти (в байтах)’) ;
Memo1.Lines.Add(IntToStr(dwAvailPageFile) +’ — ‘+’ Доступно виртуальной памяти (в байтах) ‘) ;
Memo1.Lines.Add(IntToStr(dwTotalVirtual) +’ — ‘+’ Адресное виртуальное пространство текущего процесса’) ;
Memo1.Lines.Add(IntToStr(dwAvailVirtual) +’ — ‘+’ Доступно байт виртуального адресного пространства текущего процесса’) ;
end;

Вот и все. Компилируем (F9) программу, жмем на кнопку и смотрим результат.

Добавлено: 05 Сентября 2013 01:39:29 Добавил: Андрей Ковальчук Нравится 0

Добавить