Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.08.2017, 16:53   #1
Руслан12345
Новичок
Джуниор
 
Регистрация: 05.08.2017
Сообщений: 2
По умолчанию Как программно установить службу?

Помогите, кто нибудь знает как это сделать.
Через runas не пойдет. Если есть другой вариант пишите.
Буду благодарен!!!
Руслан12345 вне форума Ответить с цитированием
Старый 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
саша40
Участник клуба
 
Регистрация: 12.09.2012
Сообщений: 1,030
По умолчанию

Насколько помню, в Delphi есть приложения типа Service. При запуске они автоматически устанавливаются и потом запускаются. В сети даже находил статьи по этому, но повода применить не было.
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби.
саша40 вне форума Ответить с цитированием
Старый 07.08.2017, 07:35   #4
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Цитата:
Сообщение от саша40 Посмотреть сообщение
При запуске они автоматически устанавливаются и потом запускаются
Ага, аж два раза. То, что в этих приложениях есть процедуры-обработчики инсталляции сервиса и его запуска ещё не означает, что сам он установится автоматически.

Моё предложение: через ShellExecute выполнить команду <имя сервиса> /INSTALL. Чем не программная установка?
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 07.08.2017, 09:07   #5
Руслан12345
Новичок
Джуниор
 
Регистрация: 05.08.2017
Сообщений: 2
По умолчанию

Подробнее можно
Руслан12345 вне форума Ответить с цитированием
Старый 07.08.2017, 13:21   #6
саша40
Участник клуба
 
Регистрация: 12.09.2012
Сообщений: 1,030
По умолчанию

Справка: http://platonov-andrei.narod.ru/Delp...ellExecute.htm
Ознакомься.
Ниже код:
Код:
Uses ..., shellapi;

...
begin
...
ShellExecute(Handle, "open", PAnsiChar(ExtractFilePath(Application.FileName)+"/lib/service.exe"), "Install",nil,0);
...
end;
//Команда установит службу в папке lib(библиотеки) из папки с программой
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби.
саша40 вне форума Ответить с цитированием
Старый 08.08.2017, 02:47   #7
Баламут
Баламучу слегка...
Участник клуба
 
Аватар для Баламут
 
Регистрация: 01.11.2006
Сообщений: 1,585
По умолчанию

Цитата:
Сообщение от Sciv Посмотреть сообщение
Чем не программная установка?
Ну видимо тем, что контролировать процесс в данном случае будет довольно проблематично. Например, по каким-то причинам, не встанет (я про службу!). И как программа-установщик об этом узнает? Только без извращений Я как-то выкладывал уже на форуме свою библиотеку для работы со службами. Так что если хорошо поискать...

Последний раз редактировалось Баламут; 08.08.2017 в 02:49.
Баламут вне форума Ответить с цитированием
Старый 08.08.2017, 04:47   #8
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Цитата:
Сообщение от Баламут Посмотреть сообщение
Только без извращений
Хорошо, что предупредил А то я уже начал фантазировать.
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как программно установить драйвер 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