Delphi中实现高精度计时的方法

//取毫秒级时间精度(方法一)： 　　var 　　 t1,t2:int64; 　　 r1:int64; 　　begin 　　 t1:=GetTickCount;//获取开始计数 WINDOWS API 　　 sleep(1000);{do...}//执行要计时的代码 　　t2:=GetTickCount;//获取结束计数值 　　 r1:=t2-t1;//取得计时时间，Y\`国4~络(}.u_%t"hV单位毫秒(ms) 　　 showmessage(inttostr(r1)); 　　end;