怎样让程序延时

Q：怎样让程序延时

A：

procedure Delay(msecs:integer);

var
FirstTickCount:longint;

begin

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

end;

本文地址：http://com.8s8s.com/it/it6345.htm