Этот урок предназначен для тех кто хоть немного разбирается в Delphi. Но если Вы читали предыдущие уроки, значит Вы тоже поймете что тут написано) Я расскажу в этом просто уроке, как сделать как-таковую "настоящую" программу, которая будет просчитывать использованную память.
Приступим. Создаем кнопку и во вкладке Events(События) в строке OnClick пишем: Button1Click .
Теперь по желанию в разделе Properties(Свойства) в строке Caption можно написать: "Просчитать". Чуть выше кнопки создаем объект Memo(Текстовое поле). Получается вот такая форма:
Ищем строку где написано:
procedure TForm1.Button1Click(Sender: TObject);
и заменяем на:
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) + '% памяти всего было использованно') ;
Программа готова! Можете скачать исходник тут.
|