Обработка сообщений в течение заданного времени

Это перевод Pumping messages while waiting for a period of time. Автор: Реймонд Чен.

Мы можем использовать функцию MsgWaitForMultipleObjects (или её расширенный вариант MsgWaitForMultipleObjectsEx) для создания функции "sleep с обработкой сообщений" без использования опроса.

function SleepMsg(const dwTimeout: Cardinal): Boolean;
const
  MSGF_SLEEPMSG = $5300;
  MWMO_WAITANY = $0000;
  MWMO_INPUTAVAILABLE = $0004;
var
  dwStart, dwElapsed, dwStatus: Cardinal;
  Msg: TMsg;
begin
  dwStart := GetTickCount;
  dwElapsed := 0;
  while dwElapsed < dwTimeout do
  begin
    dwStatus := MsgWaitForMultipleObjectsEx(0, Pointer(nil)^, dwTimeout - dwElapsed, QS_ALLINPUT, MWMO_WAITANY or MWMO_INPUTAVAILABLE);
    if dwStatus = WAIT_OBJECT_0 then
    begin
      while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
      begin
        if Msg.Message = WM_QUIT then
        begin
          PostQuitMessage(Msg.wParam);
          Exit(False); // прервались из-за WM_QUIT
        end;
        if not CallMsgFilter(Msg, MSGF_SLEEPMSG) then
        begin
          TranslateMessage(Msg);
          DispatchMessage(Msg);
        end;
      end;
    end;
    dwElapsed := GetTickCount - dwStart;
  end;
  Result := True; // таймаут
end;

Эта функция обрабатывает (pumps) сообщения в течение dwTimeout миллисекунд. Ядро идеи заключается в использовании функции MsgWaitForMultipleObjects/Ex в качестве суррогата для WaitMessageTimeout и обработки сообщений, пока не будет достигнут суммарный таймаут. Однако, тут есть много мелких деталей, на которые нужно обращать внимание. Я привожу ссылки на предыдущие сообщения, если вы захотите освежить их в памяти:

• Использование модульной арифметики для избежания проблем переполнения интервалов
• MsgWaitForMultipleObjects и состояние очереди
• Modality, part 3: The WM_QUIT message
• Rules for Using Pointers
• Rescuing thread messages from modal loops via message filters

Вы можете решить, что CallMsgFilter тут излишен, но вы передумаете, когда осознаете, что пользователи могут нажать клавиатурный акселератор, пока вы спите, и вы, вероятно, хотели бы, чтобы он прошёл через чей-то TranslateAccelerator. Фильтр сообщений позволяет вам внедриться в модальный цикл и сделать трансляцию акселератора.

Расширение этой функции до "ждать на множестве описателей указанное количество времени, обрабатывая в это время сообщения" я оставляю вам в качестве упражнения (вы можете это сделать, не изменяя много строк кода).