Instalowanie aplikacji w usłudze

Odpowiedz Nowy wątek
2006-08-02 16:43

Rejestracja: 15 lat temu

Ostatnio: 12 lat temu

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

Rejestracja: 14 lat temu

Ostatnio: 7 lat temu

0

Może by spróbować:

WinExec(cmd twoje_polecenie,sw_NORMAL);

Pozostało 580 znaków

2006-08-02 20:16

Rejestracja: 14 lat temu

Ostatnio: 12 lat temu

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

Rejestracja: 15 lat temu

Ostatnio: 12 lat temu

0

Oba sposoby tylko uruchamiają wiersz poleceń

Pozostało 580 znaków

2006-08-03 10:22

Rejestracja: 14 lat temu

Ostatnio: 7 lat temu

0

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

Pozostało 580 znaków

2006-08-03 10:47

Rejestracja: 15 lat temu

Ostatnio: 12 lat temu

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

Rejestracja: 14 lat temu

Ostatnio: 7 lat temu

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

Ad
2006-08-07 11:13
Ad

Rejestracja: 14 lat temu

Ostatnio: 8 lat temu

0

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


Pozostało 580 znaków

Odpowiedz

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