CSDN博客

img ghj1976

怎样让程序延时

发表于2000/11/22 10:05:00  1883人阅读

Q:怎样让程序延时

A:

procedure Delay(msecs:integer);

var
FirstTickCount:longint;

begin

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

end;

0 0

相关博文

我的热门文章

img
取 消
img