Текущий архив: 2002.09.16;
Скачать: CL | DM;

Вниз

Айпишный аналог 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;

---

Страницы: 1 вся ветка

Текущий архив: 2002.09.16;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.01 c