| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сервис. Не позволить пользователю завершить.
Strate © (2008-03-26 21:19:00)Добрый вечер. Как корректно в TService не дать завершить сервис?
Добавил обработчик OnStop:
procedure TTMService.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
self.ErrCode := ERROR_CANCELLED;
self.Win32ErrCode := ERROR_CANCELLED;
ReportStatus;
Stopped := False;
end;
Результат: При первой попытке остановить сервис он не останавливается, винда ругается на то что сервис не возвратил код ошибки. Второй раз я так понимаю тупо убивается процесс с сервисом.
palva (2008-03-27 15:22:00) [1]
> Как корректно в TService не дать завершить сервис?
не дать завершать сервис - не корректно. Приличные люди так не делают.
clickmaker (2008-03-27 12:23:00) [2]а AllowStop тупо ставить не пробовал?
tesseract (2008-03-27 12:21:00) [3]А AllowStop в false поставить не легче ?
> self.ErrCode := ERROR_CANCELLED;
> self.Win32ErrCode := ERROR_CANCELLED;
А это откуда взял ?
| |
