Айпишный аналог Application.ProcessMessages?

← →
Mazenrat (2002-09-04 15:04) [0]

Добрый день.

Нужен аналог Application.ProcessMessages; на API. То есть программа без формы, написана на чистом API. Как реализовать Application.ProcessMessages; ?

← →
Ученик © (2002-09-04 15:06) [1]

function ProcessMessages : Boolean;
var
Msg : TMsg;
begin
Result := False;
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do begin
if Msg.Message = WM_QUIT then begin
Exit
end else begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end
end;
Result := True
end;

Айпишный аналог Application.ProcessMessages? Найти похожие ветки