Сейчас я хочу показать вам как на Delphi быстро и без использования компонентов узнать информацию о системе. Для начала создадим новую форму и бросим на неё: компонент Button (кнопка) и компонент Memo (многострочный редактор) оба с закладки Standart. После чего в обработчик кнопки вставляем следующий код:

procedure TForm1.Button1Click(Sender: TObject);  
var MemoryStatus: TMemoryStatus;  
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;  
  
  
end; 

P.S. В данном примере используется API функция GlobalMemoryStatus.

Добавлено: 01 Августа 2018 06:59:32 Добавил: Андрей Ковальчук Нравится 0

Добавить