unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Registry;
type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
PerfKey = 'PerfStats';
PerfStart = 'StartStat';
PerfRead = 'StatData';
PerfStop = 'StopStat';
PerfUsage = 'KERNELCPUUsage';
var
Form1: TForm1;
r: TRegistry;
buf: array[0..3] of byte;
implementation
{$R *.DFM}
procedure TForm1.Timer1Timer(Sender: TObject);
type
btype = record
case integer of
0: (bfr:array[0..3] of byte);
1: (bByte: byte;);
end;
var
bufr: btype;
begin
// we have a key open - read the latest performance data
r.ReadBinaryData(PerfUsage, bufr, sizeof(bufr));
Label1.Caption := IntToStr(bufr.bByte)+' % CPU usage';;
end;
initialization
begin
// First create a registry item to access the performance data
r := TRegistry.Create;
r.RootKey := HKEY_DYN_DATA;
// before data is available, you must read the START key for the data you desire
r.OpenKey{ReadOnly}(PerfKey+PerfStart, False);
r.ReadBinaryData(PerfUsage, Buf, sizeof(buf));
// Now open the key for the data itself
r.CloseKey;
r.OpenKey{ReadOnly}(PerfKey+PerfRead, False);
end;
finalization
begin
// We're done - open the key to close the data for updating
r.OpenKey(PerfKey+PerfStop, False);
r.ReadBinaryData(PerfUsage, Buf, sizeof(buf));
r.Free;
end;
end. |
|
