Показывает загруженость процессора

Советы » Процессор » Показывает загруженость процессора

{ **** 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('PerfStatsStartStat', false) = TRUE then

begin

reg.ReadBinaryData('KERNELCPUusage', 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('PerfStatsStatData', false) = TRUE then

begin

reg.ReadBinaryData('KERNELCPUusage', b, 4); end

; reg.CloseKey; Gauge1.Progress := b[1]; Application.ProcessMessages; //------------------------------- end

; end

.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com