windows - 德尔福 : Sleep without freeze and processmessages

Question

我需要一种方法来暂停函数的执行几秒钟。我知道我可以使用 sleep 方法来做到这一点，但这种方法在执行时会“卡住”应用程序。我也知道我可以使用类似下面的代码来避免卡住:

// sleeps for 5 seconds without freezing 
for i := 1 to 5 do
    begin
    sleep(1000);
    application.processmessages;
    end;

这种方法有两个问题:一个是卡住仍然每秒发生一次，第二个问题是每秒调用“application.processmessages”。我的应用程序是 CPU 密集型的，每个 processmessages 调用都会做很多不必要的工作，使用不必要的 CPU 能力；我只想暂停工作流程，仅此而已。

我真正需要的是一种像 TTimer 一样暂停执行的方法，在下面的示例中:

   // sleeps for 5 seconds
   mytimer.interval := 5000;
   mytimer.enabled := true;
   // wait the timer executes
   // then continue the flow
   // running myfunction
   myfunction;

这种方法的问题是“myfunction”不会等待 mytimer，它将在启用 mytimer 后立即运行。

是否有另一种方法可以实现我想要的暂停？

提前致谢。

Answer 1

正如 David 所说，最好 的选择是将工作转移到一个单独的线程中并完全停止阻塞主线程。但是，如果你必须阻塞主线程，那么至少你应该只在确实有消息等待处理时才调用 ProcessMessages()，让线程在其余时间休眠。您可以使用 MsgWaitForMultipleObjects() 来处理它，例如:

var
  Start, Elapsed: DWORD;

// sleep for 5 seconds without freezing 
Start := GetTickCount;
Elapsed := 0;
repeat
  // (WAIT_OBJECT_0+nCount) is returned when a message is in the queue.
  // WAIT_TIMEOUT is returned when the timeout elapses.
  if MsgWaitForMultipleObjects(0, Pointer(nil)^, FALSE, 5000-Elapsed, QS_ALLINPUT) <> WAIT_OBJECT_0 then Break;
  Application.ProcessMessages;
  Elapsed := GetTickCount - Start;
until Elapsed >= 5000;

或者:

var
  Ret: DWORD;
  WaitTime: TLargeInteger;
  Timer: THandle;

// sleep for 5 seconds without freezing 
Timer := CreateWaitableTimer(nil, TRUE, nil);
WaitTime := -50000000; // 5 seconds
SetWaitableTimer(Timer, WaitTime, 0, nil, nil, FALSE);
repeat
  // (WAIT_OBJECT_0+0) is returned when the timer is signaled.
  // (WAIT_OBJECT_0+1) is returned when a message is in the queue.
  Ret := MsgWaitForMultipleObjects(1, Timer, FALSE, INFINITE, QS_ALLINPUT);
  if Ret <> (WAIT_OBJECT_0+1) then Break;
  Application.ProcessMessages;
until False;
if Ret <> WAIT_OBJECT_0 then
  CancelWaitableTimer(Timer);
CloseHandle(Timer);