怎样让程序延时

核心提示：Q：怎样让程序延时A：PRocedure Delay(msecs:integer);varFirstTickCount:longint;beginFirstTickCount:=GetTickCount;repeatapplication.ProcessMessages;until ((GetTickCount-Fir

Q：怎样让程序延时

A：

PRocedure Delay(msecs:integer);

var
FirstTickCount:longint;

begin

FirstTickCount:=GetTickCount;
repeat
application.ProcessMessages;
until ((GetTickCount-FirstTickCount) >= Longint(msecs));

end;