Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Frequenz,Time1,Time2: Int64;
begin
QueryPerformanceFrequency(Frequenz); // zeitmessung
QueryPerformanceCounter(Time1); // zeitmessung
!!! zu messende funktion hier !!!
QueryPerformanceCounter(Time2); // zeitmessung
//1. ausgabe in millisekunden
Form1.Label1.Caption:=FormatDateTime('hh:nn:ss:zzz',IncMilliSecond(0,Round( (Time2-Time1)/Frequenz*1000 ))); // zeitmessung
//2. oder in tick's
Form1.Label1.Caption:=FloatToStrF(Time2-Time1,ffNumber,99,0); // zeitmessung
end;
das ganze kann durch das multitasking aber etwas abweichen...
geht glaube erst ab NT,2000,XP
und windows muß in uses sein...
mfg Dano