ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Установка сервиса, событие BeforeInstall
3 сообщений из 3, страница 1 из 1
Установка сервиса, событие BeforeInstall
    #39643657
vibondarenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vibondarenko
Гость
Есть такое событие у сервиса, BeforeInstall.
В этом событии я считываю имя пользователя и пароль из файла настроек для того, чтобы сервис запускался от имени определенного пользователя.
Так вот, если по какой либо причине не прочитался файл настроек, то нужно отменять установку сервиса и записать в лог это.
Возможно ли отменить установку сервиса?
...
Рейтинг: 0 / 0
12.05.2018, 20:53
| Ответить | Цитировать | Написать  
Установка сервиса, событие BeforeInstall
    #39643663
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
vibondarenko,

Можно попробовать там raise Exception сделать или Abort. Но точнее надо смотреть в исходники.
...
Рейтинг: 0 / 0
12.05.2018, 21:16
| Ответить | Цитировать | Написать  
Установка сервиса, событие BeforeInstall
    #39643776
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
makhaon
Участник
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
13.05.2018, 09:58
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Установка сервиса, событие BeforeInstall
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=A4Tech&author_mode=last_topics&do_search=1]:
 0ms
get settings:
 9ms
get forum list:
 15ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 42ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 23ms
get tp. blocked users:
 1ms
others: 679ms
total:  795ms
созд. / загр.: 795ms
x
x
Закрыть


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