Как оставить приложение без окна выполнятся до окончания работы Windows?

← →
Набережных С. (2002-01-17 16:05) [6]

Если программа работает не внутри Application.Run, то она должна выглядеть примерно так:

var Msg: TMsg;

begin
{захват ресурсов}
try
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
case Msg.Message of
WM_QUIT:Exit;
{Можно предусмотреть обработку других сообщений}
end;
{Выполняешь свою работу}
finally
{Освобождение ресурсов}
end;
end;

Можно и подругому, главное - периодически проверять очередь и при получении WM_QUIT завершать приложение.

Как оставить приложение без окна выполнятся до окончания работы Windows? Найти похожие ветки