Сервис. Не позволить пользователю завершить.

← →
Strate (2008-03-26 21:19) [0]

Добрый вечер. Как корректно в TService не дать завершить сервис?

Добавил обработчик OnStop:

procedure TTMService.ServiceStop(Sender: TService; var Stopped: Boolean);
begin self.ErrCode := ERROR_CANCELLED; self.Win32ErrCode := ERROR_CANCELLED; ReportStatus; Stopped := False; end;

Результат: При первой попытке остановить сервис он не останавливается, винда ругается на то что сервис не возвратил код ошибки. Второй раз я так понимаю тупо убивается процесс с сервисом.

← →
tesseract © (2008-03-27 12:21) [1]

А AllowStop в false поставить не легче ?

> self.ErrCode := ERROR_CANCELLED;
> self.Win32ErrCode := ERROR_CANCELLED;

А это откуда взял ?

← →
clickmaker © (2008-03-27 12:23) [2]

а AllowStop тупо ставить не пробовал?

> Как корректно в TService не дать завершить сервис?

не дать завершать сервис - не корректно. Приличные люди так не делают.

Сервис. Не позволить пользователю завершить. Найти похожие ветки