请教：如何作一个精确的延时程序，如1秒？

Question

用  winapi:  gettickcount

Answer 1

t1,t2:ttime﹔
t1:=now;
repeat
begin
t2:=now-t1;
application.process﹔
end;
until (t2>=1);

Answer 2

好象不晚啊。
精度应该按你程序的要求而定的，
要得越高，CPU资源用得越多。
TTime 和gettickcount  精度是差不多的。在“DELPHI深度历险“中专门介绍了几种定时器方法和各自的精确度。。

Answer 3

用
MMRESULT timeSetEvent(
  UINT uDelay,                
  UINT uResolution,           
  LPTIMECALLBACK lpTimeProc,  
  DWORD dwUser,               
  UINT fuEvent                
);吧，很精确的