怎樣讓程式延時 (轉)

worldblog發表於2007-12-02
怎樣讓程式延時 (轉)[@more@]

Q：怎樣讓延時

A：

procedure Delay(msecs:integer);

var
FirstTickCount:longint;

begin

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

end;


來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/10752043/viewspace-987248/，如需轉載，請註明出處，否則將追究法律責任。

相關文章