// (C) 1999 ISV

unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics,

 Controls, Forms,Dialogs, StdCtrls, Buttons, ExtCtrls;

type TForm1 = class(TForm)

  Label1: TLabel;

  Timer1: TTimer;

  Label2: TLabel;

  Label3: TLabel;

  Button1: TButton;

  Button2: TButton;

  Label4: TLabel;

  procedure Timer1Timer(Sender: TObject);

  procedure FormActivate(Sender: TObject);

  procedure Button1Click(Sender: TObject);

  procedure Button2Click(Sender: TObject);

 private  

{ Private declarations }

 public  

{ Public declarations }

  Counter:integer;

  //Счетчик срабатывания таймера

Start:int64;

//Начало роботы

:int64;

//Предыдущее значение

PStart,PStop:int64;

 //Для примера выч. времени

 CurRate:integer;

  //Текущая частота проца

function GetCPUClick:int64;

function GetTime(Start,Stop:int64):double;

 end;

var Form1: TForm1;implementation{$R *.DFM}

// Функция работает на пнях ММХ или выше а

// также проверялась на К6

function TForm1.GetCPUClick:int64;

begin

 asm  db 0fh,31h

// Опкод для команды rdtsc mov dword ptr result,eax mov dword ptr result[4],edx

end;

// Не смешно :(. Без ?той штуки

// Компайлер выдает Internal error C1079

Result:=Result;

end;

// Время в секундах между старт и стоп

function TForm1.GetTime(Start,Stop:int64):double;

begin

 try  result:=(Stop-Start)/CurRate except  result:=0;

 end;

end;

// Обработчик таймера считает текущую частоту, выводит ее, а также

// усредненную частоту, текущий такт с момента старта процессора.

// При постоянной частоте процессора желательно интервал братьпобольше

// 1-5с для точного прощета частоты процессора.

procedure TForm1.Timer1Timer(Sender: TObject);

 var  i:int64;

begin

 i:=GetCPUClick;

 if Counter=0  then Start:=i else

begin

  Label2.Caption:=Format('Частота общая:%2f',[(i-Start)/(Counter*Timer1.Interval*1000)]);

  Label3.Caption:=Format('Частота текущая:%2f',[(i-)/(Timer1.Interval*1000)]);

  CurRate:=Round(((i-)*1000)/(Timer1.Interval));

  end;

 Label1.Cap примера

procedure TForm1.Button1Click(Sender: TObject);

begin

 PStart:=GetCPUClick;

end;

// Останавливаем отсчет времени и показуем соко

// прошло секунд

procedure TForm1.Button2Click(Sender: TObject);

begin

 PStop:=GetCPUClick;

 Label4.Caption:=Format!

('Время между нажатиями:%gсек',[GetTime(PStart,PStop)])

end;

end.