while (fServer.ServerState = ssStarted) and (Self.Terminated = false) do
begin
  Self.ServiceThread.ProcessRequests(false);
  ProcessFiles;
  Sleep(3000);      
end;

ProcessRequests与Application.ProcessMessages非常相似.我无法传递真实,因为如果我这样做,它会阻塞,直到从Windows收到消息,并且ProcessFiles将无法运行,并且它必须不断运行. Sleep可以降低cpu使用率.

这工作正常,直到我尝试从Windows的服务管理列表关闭服务.当我点击Stop时,它会发送一条消息,并希望几乎立即得到一个响应,如果它在Sleep命令的中间,Windows会给我一个错误,该服务没有响应Stop命令.

所以我需要说的是“睡觉3000或直到你收到消息,以先到者为准”.我确定有一个API,但我不确定它是什么.有人知道吗？