Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c