Instalowanie aplikacji w usłudze

0

Witam
Znalazłem pewien artykuł o instalacji aplikacji jako usługa. I pisze tam coś takiego:

W kolejnym etapie możemy przejść do instalowania programu jako usługi. W tym celu otwieramy wiersz poleceń (cmd.exe) i korzystając z instalatora usług wpisujemy:

instsrv service_name %systemroot%/system32/srvany.exe

Powinniśmy dostać komunikat że usługa została pomyślnie zainstalowana.

I można było by ten krok zrobić programowo w Delphi

0

Może by spróbować:

WinExec(cmd twoje_polecenie,sw_NORMAL);
0

Albo (po dodaniu w uses ShellApi)
ShellExecute(Application.Handle, 'open', 'cmd.exe', 'instsrv service_name %systemroot%/system32/srvany.exe', nil, SW_SHOWNORMAL);
Też powinno zadziałać :-)

0

Oba sposoby tylko uruchamiają wiersz poleceń

0

No ale programowo go otwierają, tak jak chciałeś

0

jeśli bym chciał go otworzyć to wystarczyło by tylko samo cmd.exe A mi chodzi żeby to zainstalować, a to trzeba zrobic przez wiersz poleceń, chyba że znasz inny sposób

0

Te polecenia które napiszesz po cmd uruchomią sie z wiersza poleceń i usługa sie zainstaluje. Wpisz naprzyklad WinExec(cmd /C dir c:\ > c:\wynik.txt,sw_NORMAL);
uruchom i zobacz ten plik.

0

WinExec('cmd /C dir c:\ > c:\wynik.txt',sw_NORMAL); - APOSTROFY!

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0