Этот урок предназначен для тех кто хоть немного разбирается в 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) + '% памяти всего было использованно') ;
Программа готова! Можете скачать исходник тут.
| 
