TTimer就可以,还有 procedure Delay(x,y:word); var timeout:TDateTime; begin //该成为WINDOWS APP启动时间这个函数来做! timeout:=now+encodeTime(0,x div 60,x mod 60,y); While now<timeout do Application.ProcessMessages; end; 这样的函数也可以。
----------------------------------------------
-