Показывает загруженость процессораDelphi , ОС и Железо , ПроцессорПоказывает загруженость процессора
Автор: DDA { **** UBPFD *********** by delphibase.endimus.com **** >> Показывает загруженость процессора Показывает загруженость процессора Зависимости: registry,Windows, SysUtils, Forms,Gauges, Classes, Controls, ExtCtrls, StdCtrls; Автор: DDA, Vologda Copyright: Где-то найдено Дата: 11 февраля 2004 г. ***************************************************** } unit Unit1; interface uses registry, Windows, SysUtils, Forms, Gauges, Classes, Controls, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Gauge1: TGauge; Timer1: TTimer; Button1: TButton; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var def: string; reg: TRegistry; Buffer: array[0..1000] of integer; begin //------------------------------- reg := TRegistry.Create; reg.RootKey := HKEY_DYN_DATA; def := ''; if reg.OpenKey('PerfStats\StartStat', false) = TRUE then begin reg.ReadBinaryData('KERNEL\CPUusage', buffer, 1000); end; reg.CloseKey; Timer1.Enabled := true; end; //------------------------------- procedure TForm1.Timer1Timer(Sender: TObject); var def: string; reg: TRegistry; B: array[1..4] of integer; begin reg := TRegistry.Create; reg.RootKey := HKEY_DYN_DATA; def := ''; if reg.OpenKey('PerfStats\StatData', false) = TRUE then begin reg.ReadBinaryData('KERNEL\CPUusage', b, 4); end; reg.CloseKey; Gauge1.Progress := b[1]; Application.ProcessMessages; //------------------------------- end; end. Статья Показывает загруженость процессора раздела ОС и Железо Процессор может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |