Как программно установить службу?

[Руслан12345]

Помогите, кто нибудь знает как это сделать.
Через runas не пойдет. Если есть другой вариант пишите.
Буду благодарен!!!

[Баламут]

OpenSCManager, CreateService или OpenService, StartService. Импортируются из advapi32.dll. Для Делфи можно воспользоваться библиотеками jedi, в данном случае jwaWinSvc

[саша40]

Насколько помню, в Delphi есть приложения типа Service. При запуске они автоматически устанавливаются и потом запускаются. В сети даже находил статьи по этому, но повода применить не было.

[Sciv]

Сообщение от саша40

При запуске они автоматически устанавливаются и потом запускаются

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

Моё предложение: через ShellExecute выполнить команду <имя сервиса> /INSTALL. Чем не программная установка?

[Руслан12345]

Подробнее можно

[саша40]

Справка: 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(библиотеки) из папки с программой

[Баламут]

Сообщение от Sciv

Чем не программная установка?

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

[Sciv]

Сообщение от Баламут

Только без извращений

Хорошо, что предупредил А то я уже начал фантазировать.