Как изменить во время (Pause, Resume) TimeOut сервиса? [D5, Win2k]
Erik1 © (2004-08-30 17:09:00)
У меня в 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:00) [1]
Что неужели никто неразбирался как работает
TServiceApplication. Проблема в том, что при изменении TimeOut,
реальное оповещение об этом отрабатывает только после окончания
событий OnPause и пр..
Наверх 
ЧАТ |
Орешник |
|
