Delphi 延迟函数比sleep 要好的多

最新推荐文章于 2025-07-10 20:16:24 发布

转载最新推荐文章于 2025-07-10 20:16:24 发布 · 1.1w 阅读

文章标签：

#delphi

上位机专栏收录该内容

33 篇文章

订阅专栏

原文：http://www.cnblogs.com/Bung/archive/2011/05/17/2048867.html

//延迟函数：方法一
procedure delay(msecs:integer);
var
  Tick: DWord; 
  Event: THandle; 
begin
  Event := CreateEvent(nil, False, False, nil); 
  try
    Tick := GetTickCount + DWord(msecs); 
    while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <> WAIT_TIMEOUT) do
    begin
      Application.ProcessMessages; 
      msecs := Tick - GetTickcount; 
    end; 
  finally
    CloseHandle(Event); 
end; 
 
//延迟函数：方法二
procedure Delay(dwMilliseconds:DWORD);//Longint
var
iStart,iStop:DWORD;
begin
    iStart :=   GetTickCount;
    repeat
    iStop  :=   GetTickCount;
    Application.ProcessMessages;
    until (iStop  -  iStart) >= dwMilliseconds;
end;