Вчимося в delphi отримувати інформацію про систему

Зараз я хочу показати вам як на 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.

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*