Форум: "Начинающим";
Текущий архив: 2008.04.20;
Скачать: [xml.tar.bz2];
ВнизСервис. Не позволить пользователю завершить. Найти похожие ветки
← →
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 тупо ставить не пробовал?
← →
palva © (2008-03-27 15:22) [3]
> Как корректно в TService не дать завершить сервис?
не дать завершать сервис - не корректно. Приличные люди так не делают.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.04.20;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.043 c