Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Установка сервиса, событие BeforeInstall / 3 сообщений из 3, страница 1 из 1
12.05.2018, 20:53
    #39643657
vibondarenko
vibondarenko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установка сервиса, событие BeforeInstall
Есть такое событие у сервиса, BeforeInstall.
В этом событии я считываю имя пользователя и пароль из файла настроек для того, чтобы сервис запускался от имени определенного пользователя.
Так вот, если по какой либо причине не прочитался файл настроек, то нужно отменять установку сервиса и записать в лог это.
Возможно ли отменить установку сервиса?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2018, 21:16
    #39643663
alekcvp
alekcvp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установка сервиса, событие BeforeInstall
vibondarenko,

Можно попробовать там raise Exception сделать или Abort. Но точнее надо смотреть в исходники.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2018, 09:58
    #39643776
makhaon
makhaon
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установка сервиса, событие BeforeInstall
vibondarenko,

Можно прерывание сделать до befireinstall. Прямо в dpr. Сервис запускается с ключом /install, если идёт инсталляция, далее анализируем доступность файла и если недоступен, журналируем и, не вызывая Application.Run, останавливаем работу.
Надёжнее юзер/пасс передавать в параметрах инсталляции, к слову. Я у себя так и делаю.

Код: pascal
1.
2.
3.
4.
5.
 if InParams('/install') and (ParamCount = 3) then
 begin
  Serivece1.ServiceStartName := ParamStr(2);
  Serivece1.Password := ParamStr(3);
 end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Установка сервиса, событие BeforeInstall / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 509ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2040903]:
 0ms
get settings:
 9ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 165ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 2ms
others: 260ms
total:  509ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]