Курсовая работа: Мониторинг ОС

Label5: TLabel;

LabelCPUName: TLabel;

LabelCPUSpeedSR: TLabel;

LabelCPUStat: TLabel;

Label7: TLabel;

Label6: TLabel;

procedure BitBtnStartClick(Sender: TObject);

procedure BitBtnStopClick(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

private

{ Private declarations }

Stop: Boolean;

public

{ Public declarations }

end;

var

FormCPUSpeed: TFormCPUSpeed;

Flag:Integer;

implementation

uses Unit1;

{$R *.DFM}

function GetCPUSpeed: Double;

const

DelayTime = 500;

var

TimerHi, TimerLo: DWORD;

PriorityClass, Priority: Integer;

begin