//取毫秒级时间精度(方法一)：
　　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;

　　//取毫秒级时间精度(方法二)：
　　//use DateUtils;//引用DateUtils单位
　　var
 　　 t1,t2:tdatetime;
 　　 r1:int64;
　　begin
  　　t1:=now();//获取开始计时时间
  　　sleep(1000);{do...}//执行要计时的代码
  　　t2:=now();//获取结束计时时间
  　　r1:=SecondsBetween(t2,t1);//取得计时时间，D6k=+W的TsoUbP育_II单位秒(s)
 　　 r1:=MilliSecondsBetween(t2,t1);//取得计时时间，

　　fTVGgU8E36
　　单位毫秒(ms)
 　　 showmessage(inttostr(r1));
　　end;

　　//注：以上两种方式经本人测试好像只能产生0.01秒的计时精度

　　//取系统级时间精度：
　　var
 　　 c1:int64;
 　　 t1,t2:int64;
　　  r1:double;
　　begin
　　  QueryPerformanceFrequency(c1);//WINDOWS API 　　返回计数频率(Intel86:1193180)(获得系统的高性能频率计数器在一毫秒内的震动次数)
 　　 QueryPerformanceCounter(t1);//WINDOWS API 获取开始计数值
 　　 sleep(1000);{do...}//执行要计时的代码
 　　 QueryPerformanceCounter(t2);//获取结束计数值
 　　 r1:=(t2-t1)/c1;//取得计时时间，

　　L`:(Y\O件}\^k(育*软{Ux
　　j5^国GZ,)中1a6t."1)Ti
　　x@\t)ac提W教

　　YjTt]$1UCqS'E)网7g单位秒(s)
 　　 r1:=(t2-t1)/c1*1000;//取得计时时间，单位毫秒(ms)
 　　 r1:=(t2-t1)/c1*1000000;//取得计时时间，单位微秒
　　  showmessage(floattostr(r1));
　　end;

欢迎访问最专业的网吧论坛,无盘论坛,网吧经营,网咖管理,网吧专业论坛 https://bbs.txwb.com 关注天下网吧微信/下载天下网吧APP/天下网吧小程序，一起来超精彩