Delphi高精度计时方法

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