Es ist die Messagebox aus
Vcl.SvcMgr.pas ->
TServiceApplication.RegisterServices(Bool, Bool)
Zitat:
[Window Title]
Error
[Content]
Service "Günther-Service" failed to install with error: "System Error. Code: 1073.
Der angegebene Dienst ist bereits vorhanden"
[OK]
Das ist ein Beispiel. Fehlschlagen kann die Installation ja aus vielerlei Gründen.
Ich kann keinen Exitcode setzen denn mein "User Code" wird ja noch nicht einmal ausgeführt. Es ist der Automatismus den die Delphi-
RTL fest einkodiert zum Installieren des Dienstes anbietet, ich sehe keinen Weg wie ich mich da irgendwo dazwischen hängen kann. Der Prozess wirft eine Messagebox auf den Bildschirm und wartet bis ich die weg klicke. ExitCode ist null.