Как изменить во время (Pause, Resume) TimeOut сервиса?

← →
Erik1 (2004-08-30 17:09) [0]

У меня в TService стоит 1 секунда, но Pause, Resume выполняются намного быстрее. Я хочу сразу после выполнения, проинформировать видовый сервис менаджер, что операция завершина.
Примерно так:
procedure TSrvDJP.ServicePause(Sender: TService; var Paused: Boolean);
begin
RealEvent.Suspend;
Paused := True;
ReportStatus; //--Это непомогло.
end;

← →
Erik1 (2004-08-31 10:54) [1]

Что неужели никто неразбирался как работает TServiceApplication. Проблема в том, что при изменении TimeOut, реальное оповещение об этом отрабатывает только после окончания событий OnPause и пр..

Как изменить во время (Pause, Resume) TimeOut сервиса? Найти похожие ветки