Home

Page 298
Page 298
background image

Железная мастерская

В обработчике события

 компонента Ttimer пишем следующий

procedure

var

begin

CollectCPUData;

for i:=0 to

 do

begin

if

 then

 ;

end;

end;

Для компиляции примера нам понадобится добавить в раздел uses модуль

 забудьте поместить файл модуля в директорию, которая бу-

дет доступна для компилятора Delphi, например в ту же директорию, что и

программа.

Попробуйте скомпилировать пример и запустить на выполнение. Убедитесь,

что программа работает верно и без ошибок.

90

Л

v 1

Л

§

J

 . , . ,'

S

 64,98% 98,70%

 86,96%

 77,99% 73,99%

 6.8. Пример работы программы

Теперь рассмотрим код, который мы написали. В самом начале вызывается
функция CollectCPUData, которая получает данные о загруженности про-


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.