Вы можете вызывать MsgWaitForMultipleObjects без описателей

Это перевод You can call MsgWaitForMultipleObjects with zero handles. Автор: Реймонд Чен.

Не существует функции WaitMessageTimeout, но вы можете создать её сами при помощи функции MsgWaitForMultipleObjects:

function WaitMessageTimeout(const dwTimeout: DWORD): Boolean;
begin
  Result := (MsgWaitForMultipleObjects(0, nil, False, dwTimeout, QS_ALLINPUT) = WAIT_TIMEOUT);
end;

Чтобы ожидать сообщения с таймаутом, мы используем MsgWaitForMultipleObjects в вырожденном смысле: вы передаёте список объектов, которых нужно ждать, равно как и задержку и состояние очереди, прося этим функцию вернуть управление, когда любой из объектов перейдёт в сигнальное состояние или же придёт сообщение. Но если вы не передадите объекты, то единственное, что останется функции, - это ждать сообщения.

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