Windows下高精度计时方法

QueryPerformanceFrequency定时法：

//取系统级时间精度：
var
c1:int64;
t1,t2:int64;
r1:double;
begin
　　QueryPerformanceFrequency(c1);//第一次调用，获得时钟晶震频率　　
      QueryPerformanceCounter(t1);//WINDOWS API 获取开始计数值
　　sleep(1000);{do...}//执行要计时的代码
　　QueryPerformanceCounter(t2);//获取结束计数值
　　r1:=(t2-t1)/c1;//取得计时时间，单位秒(s)
　　r1:=(t2-t1)/c1*1000;//取得计时时间，单位毫秒(ms)
　　r1:=(t2-t1)/c1*1000000;//取得计时时间，单位微秒
　　showmessage(floattostr(r1));
end;