么意思博客

用sleep来延迟执行，结果程序假死！~ 下面这段代码彻底解决假死的问题。 调用：

用sleep来延迟执行，结果程序假死！~
下面这段代码彻底解决假死的问题。

procedure TForm1.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;
end;

调用：

delay(10000);