怎样让程序延时 (转)[@more@]
Q：怎样让程序延时
A：
procedure Delay(msecs:integer);
var
FirstTickCount:longint;
begin
FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10790690/viewspace-951032/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
