|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.08.2017, 16:53 | #1 |
Новичок
Джуниор
Регистрация: 05.08.2017
Сообщений: 2
|
Как программно установить службу?
Помогите, кто нибудь знает как это сделать.
Через runas не пойдет. Если есть другой вариант пишите. Буду благодарен!!! |
06.08.2017, 09:20 | #2 |
Баламучу слегка...
Участник клуба
Регистрация: 01.11.2006
Сообщений: 1,585
|
OpenSCManager, CreateService или OpenService, StartService. Импортируются из advapi32.dll. Для Делфи можно воспользоваться библиотеками jedi, в данном случае jwaWinSvc
|
06.08.2017, 19:16 | #3 |
Участник клуба
Регистрация: 12.09.2012
Сообщений: 1,030
|
Насколько помню, в Delphi есть приложения типа Service. При запуске они автоматически устанавливаются и потом запускаются. В сети даже находил статьи по этому, но повода применить не было.
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби. |
07.08.2017, 07:35 | #4 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Ага, аж два раза. То, что в этих приложениях есть процедуры-обработчики инсталляции сервиса и его запуска ещё не означает, что сам он установится автоматически.
Моё предложение: через ShellExecute выполнить команду <имя сервиса> /INSTALL. Чем не программная установка?
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
07.08.2017, 09:07 | #5 |
Новичок
Джуниор
Регистрация: 05.08.2017
Сообщений: 2
|
Подробнее можно
|
07.08.2017, 13:21 | #6 |
Участник клуба
Регистрация: 12.09.2012
Сообщений: 1,030
|
Справка: http://platonov-andrei.narod.ru/Delp...ellExecute.htm
Ознакомься. Ниже код: Код:
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби. |
08.08.2017, 02:47 | #7 |
Баламучу слегка...
Участник клуба
Регистрация: 01.11.2006
Сообщений: 1,585
|
Ну видимо тем, что контролировать процесс в данном случае будет довольно проблематично. Например, по каким-то причинам, не встанет (я про службу!). И как программа-установщик об этом узнает? Только без извращений Я как-то выкладывал уже на форуме свою библиотеку для работы со службами. Так что если хорошо поискать...
Последний раз редактировалось Баламут; 08.08.2017 в 02:49. |
08.08.2017, 04:47 | #8 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Хорошо, что предупредил А то я уже начал фантазировать.
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как программно установить драйвер | Daemvil | Общие вопросы Delphi | 14 | 01.08.2016 15:17 |
Как программно в консоли установить точечный шрифт, и его размер? - C++ | Effolkronium | Visual C++ | 3 | 27.08.2015 12:23 |
Программно установить курсор в DBGrid | Muramidaza | БД в Delphi | 16 | 02.03.2014 22:48 |
Как установить настраиваемые поля программно в MS Office Word? | Slap | Microsoft Office Word | 1 | 10.12.2012 00:35 |
Как программно установить службу в windows? | KiL0z | Общие вопросы Delphi | 2 | 10.05.2011 02:29 |