Mam wykonaną aplikację w delphi typu "service application" - czyli usługa systemu Windows. Czy istnieje mozliwość instalacji takiej usługi na jednej maszynie w przynajmniej dwóch instancjach? Czyli aby podczas instalacji binarkę umieścić w nowym folderze i nadać usłudze nową nazwę? Próbowałem to wykonać wykorzystując procedurę "BeforeInstall" obiektu "TService". Nakazałem procedurze zmiane nazwy i opisu usługi. Usługa instaluje się ze zmieniona nazwą, jednak są problemy podczas jej uruchamiania (kończy się zawsze błedem).
Myślę, że istnieje na to jakiś prosty i bezpieczny patent - jednak do tej pory go nie znalazłem.
Pozdrawiam
0
0
Możesz usługę zainstalować wielokrotnie, choćby korzystając ręcznie z wywołania polecenia konsoli
sc create "Nazwa usługi" binpath= "c:\ścieżka -parametry" displayname= "Pokazywana nazwa"
Nazwa usługi musi być unikatowa. Być może można to samo osiągnąć wywołując stosowne funkcje systemowe.
Instalacja jednej instancji może automatycznie instalować kolejne. Deinstalacja usuwać pozostałe.
0
OK, dzięki. Skutek jest taki sam jak w przypadku, gdy program (service) samodzielnie ustawia "name" i "display name" podczas procedury "beforeInstall", czyli rejestruje się w systemie pod zmienionymi nazwami ale kontroli nad tym nie ma (instalacja kończy się OK, próba uruchomienia kończy się błedem po czym pokazuje się, ze jest uruchomiona ale nie mozna ani zrestartować ani zatrzymać.).
Pozdrawiam