Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Programmupdate im Dienst - So möglich? (https://www.delphipraxis.net/211490-programmupdate-im-dienst-so-moeglich.html)

Bernhard Geyer 22. Sep 2022 15:40

Programmupdate im Dienst - So möglich?
 
Gegeben:
Anwendung läuft in Dienst unter lokalen Konto.

Anforderung:
Dienstanwendung soll sich aktualisieren können.

Normalerweis würde man zweite Exe (Update.exe) starten, sich selbst beenden und die Update sorgt dafür das die eigene Exe aktualisiert wird.
Da diese in einem Dienst läuft, müsste der Dienst beendet werden.
Was passiert dann? Beendet sich dann auch diese "Diensteumgebung/"Desktop" nicht gleich mit?

MyRealName 22. Sep 2022 15:53

AW: Programmupdate im Dienst - So möglich?
 
Was ich mal gemacht habe ist einfach eine Mini-Einfach-Exe, welche eine DLL oder BPL lädt und zum updaten entlädt. Exe selbst wird nie geupdated, brauch ja auch nicht, ist nur ein Loader

Bernhard Geyer 22. Sep 2022 16:02

AW: Programmupdate im Dienst - So möglich?
 
Zitat:

Zitat von MyRealName (Beitrag 1512290)
Was ich mal gemacht habe ist einfach eine Mini-Einfach-Exe, welche eine DLL oder BPL lädt und zum updaten entlädt. Exe selbst wird nie geupdated, brauch ja auch nicht, ist nur ein Loader

Wäre eine Idee bei neuen Anwendung.
Hier haben wir schon eine bestehende Anwendung die aufgrund der Historie nicht so einfach so umgebaut werden könnte.

peterbelow 22. Sep 2022 16:14

AW: Programmupdate im Dienst - So möglich?
 
Zitat:

Zitat von Bernhard Geyer (Beitrag 1512288)
Gegeben:
Anwendung läuft in Dienst unter lokalen Konto.

Anforderung:
Dienstanwendung soll sich aktualisieren können.

Normalerweis würde man zweite Exe (Update.exe) starten, sich selbst beenden und die Update sorgt dafür das die eigene Exe aktualisiert wird.
Da diese in einem Dienst läuft, müsste der Dienst beendet werden.
Was passiert dann? Beendet sich dann auch diese "Diensteumgebung/"Desktop" nicht gleich mit?

Implementiere die zweite Anwendung auch als Dienst. Wenn die erste ein Update detektiert kann sie diesen zweiten Dienst starten und sich selbst beenden.

Delphi.Narium 22. Sep 2022 16:26

AW: Programmupdate im Dienst - So möglich?
 
Unter Windows kann man doch mit
Code:
net stop "NameDeinesDienstes"
einen Dienst beenden.

Dann die Update.exe starten und dann mit
Code:
net start "NameDeinesDienstes"
den Dienst wieder starten.

Das als Batchdatei mit dem Aufruf der Update.exe zwischen dem Stoppen und Starten des Dienstes, aufgerufen per ShellExecute?

Was bei "NameDeinesDienstes" anzugeben ist, kann Du mit
Code:
net start
herausfinden, in der Liste einfach nach dem Namen suchen.

Oder mit Delphimitteln, wie in dem schon etwas älteren Post beschrieben: Run "Net Start..." in Delphi

Kombiniert mit peterbelows Vorschlag sollte das mit reinen Delphimitteln gehen, ohne Nebenwirkungen auf andere Dienste und / oder Programme, sofern sie nicht von Deinem Dienst in irgendeiner Form abhängig sind.

Bernhard Geyer 22. Sep 2022 16:34

AW: Programmupdate im Dienst - So möglich?
 
Da die Update.exe ja im Dienst gestartet würde ja sich mit dem Dienst beenden sich doch selbst "killen".

Zitat:

Implementiere die zweite Anwendung auch als Dienst. Wenn die erste ein Update detektiert kann sie diesen zweiten Dienst starten und sich selbst beenden.
Das wäre eine Idee.
Auch wenn dieser zweite Dienst nur temporär vorhanden wäre, könnte man damit das Problem lösen.
(Sollte ja aufgrund der lokalen Adminrechte kein Problem sein.
  1. Dienst registrieren
  2. Starten
  3. Beim Restart des ersten Dienstes diese Dienst stoppen und deregistieren.

Danke für den Hinweis.

Delphi.Narium 22. Sep 2022 16:47

AW: Programmupdate im Dienst - So möglich?
 
Wenn ich per ShellExercute ein Programm starte, kann ich mich sofort beenden, ohne dass das per ShellExecute gestartete Programm davon betroffen ist.

Ist das Verhalten aus 'nem Dienst heraus anders?

Bernhard Geyer 22. Sep 2022 16:55

AW: Programmupdate im Dienst - So möglich?
 
Zitat:

Zitat von Delphi.Narium (Beitrag 1512297)
Wenn ich per ShellExercute ein Programm starte, kann ich mich sofort beenden, ohne dass das per ShellExecute gestartete Programm davon betroffen ist.

Ist das Verhalten aus 'nem Dienst heraus anders?

Das ist ja mehr oder minder die Frage:
Ich beende ja den Dienst, der mit der zu aktualisierenden Anwendung verbunden ist.
Damit müsste m.E. Windows den ganzen "Dienste-Desktop" unter dem der Updater gestartet wurde doch auch beenden, oder?

Delphi.Narium 22. Sep 2022 17:17

AW: Programmupdate im Dienst - So möglich?
 
Ehrlich gesagt verstehe ich nicht, warum das passieren sollte.

Ein Dienst ist doch auch nur ein Programm.

Zum Test würd' ich mir 'nen Dienst schreiben, der per ShellExecute eine Batchdatei startet. In der Batchdatei zuerst den Dienst beenden und 'nen Moment warten. Dann die Exe des Dienstes umbenennen und ein bisserl warten. Dann die Exe zurück umbenennen und wieder 'nen Moment warten und dann den Dienst starten.

Per Echo kannst Du in der Batchdatei jeweils eine Ausgabe in 'ne Textdatei umleiten, um darin ggfls. nachvollziehen zu können, bis wohin die Batchdatei gekommen ist oder ob sie auf Anhieb sofort vollständig durchläuft.

Wenn Deine Vermutung stimmt, müsste die Batchdatei nach dem "net stop DeinDienst" beendet werden.

himitsu 22. Sep 2022 17:25

AW: Programmupdate im Dienst - So möglich?
 
Windows weiß, was ein Programm/Dienst gestartet hat. zu jedem Programm wird dessen Parent gespeichert.

Also technisch wäre es schon möglich, dass Windows beim Beenden eines Diensts ALLES von ihm beendet.
Ist wie wenn ich im Taskmanager (Details) zu einem Programm sage "Prozessstruktur beenden" (diesen Prozess/Task samt seiner ChildProzesse und deren Childs usw.), gegenüber "Task beenden" (nur diesen Prozess).



Aber es kann auch einfach nur sein, dass der Dienst in einer eigenen Session läuft.
Gestartet Programme, auch die CMDs, würden dann standardmäßig in dieser Session laufen
und beendet Windows beim Ende des Dienstes auch diese Session, dann fliegt das mit weg.
Also ich fände es schon nett, wenn Windows da mal bissl aufräumt. :angle2:



PS: Du kannst doch zwei EXEn machen, also noch einen "manuell" gestarteten UpdateService, welcher dann deinen Dienst beendet, aktualisiert und wieder startet. (durch deinen ersten Service gestartet)


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:36 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz