Instalowanie aplikacji w usłudze

Odpowiedz Nowy wątek
2006-08-02 16:43
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

Pozostało 580 znaków

2006-08-02 20:02
0

Może by spróbować:

WinExec(cmd twoje_polecenie,sw_NORMAL);

Pozostało 580 znaków

2006-08-02 20:16
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ć :-)


Pozostało 580 znaków

2006-08-03 07:30
0

Oba sposoby tylko uruchamiają wiersz poleceń

Pozostało 580 znaków

2006-08-03 10:22
0

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

Pozostało 580 znaków

2006-08-03 10:47
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

Pozostało 580 znaków

2006-08-03 15:27
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.

Pozostało 580 znaków

2006-08-07 11:13
Ad
0

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


Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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