Meldungen beim Installieren/Deinstallieren von NT-Service

[Bernhard Geyer]

Gibt es eine Möglichkeit, die Meldung "Service erfolgreich installiert" beim Installieren eines mit Delphi (4) entwickelten Programmes zu unterdrücken?

Es geht darum, keine störende Meldungen beim Installieren mit Installshield zu haben.

[Andreas Kosch]

Hallo Bernhard,

das MessageDlg-Fenster erscheint nur dann, wenn der TServiceApplication.RegisterServices-Aufrufparameter <b>Silent</b> auf False gesetzt bleibt.

<pre>
procedure TServiceApplication.RegisterServices(Install, Silent: Boolean);
...
if Success and not Silent then
if Install then
MessageDlg(SServiceInstallOK, mtInformation, [mbOk], 0) else
MessageDlg(SServiceUninstallOK, mtInformation, [mbOk], 0);
</pre>
Und in TServiceApplication.Run findet sich die folgende Zeile:
<pre>
...
if FindSwitch('INSTALL') then
RegisterServices(True, FindSwitch('SILENT')) else
...
</pre>
Somit müsste der Aufruf <i>ServiceName.exe /INSTALL /SILENT</i> die Anzeige der Hinweismeldung unterdrücken

[Bernhard Geyer]

Leiter funktioniert dieser Weg nur unter Delphi 5!

Unter Delphi 4 besitzt die Methode RegisterServices keinen Silent-Parameter! :-&lt

[Andreas Kosch]

Hallo,

in diesem Fall würde ich die beteiligten VCL-Units in das eigene Programmverzeichnis kopieren und selbst Hand anlegen ;-