Delphi QueryPerformanceCounter、QueryPerformanceFrequency函数，精确定时到ns

var
 t1,t2:int64;
 r1,r2,r3:double;
begin
 QueryPerformanceFrequency(c1);//WINDOWS API 返回计数频率        (Intel86:1193180)(获得系统的高性能频率计数器在一毫秒内的震动次数)
 QueryPerformanceCounter(t1);//WINDOWS API 获取开始计数值
//需要计时的程序代码
 QueryPerformanceCounter(t2);//获取结束计数值

 r1:=(t2-t1)/c1;//取得计时时间，单位秒(s)
 r2:=(t2-t1)/c1*1000;//取得计时时间，单位毫秒 (ms)
 r3:=(t2-t1)/c1*1000000;//取得计时时间，单位微秒
end;