Dienst deinstallieren ohne Erfolgsmeldung

[JonnyGuitar]

Servus,

ich versuche per Shellexecute einen Dienst zu deinstallieren. Zuerst stoppe ich ihn mit "net stop servicename".
Danach versuche mit Shellexecute und exename.exe /uninstall den Service zu deinstallieren. Es kommt aber die
Messagebox das der Dienst erfolgreich deinstalliert wurde. Kann man diese Messagebox unterdrücken? Oder gibt es
andere Wege den Dienst zu deinstallieren?


mfg Jonny

[Relicted]

Moin,

du könntest den dienst direkt aus der registry löschen.
der ist unter anderen in z.b.:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es
gespeichert. such einfach mal in der reg nach dem exe namen des services. so haste gar keine meldung mehr die du unterdrücken müsstest.

gruß
reli

[gsh]

Zitat:

Zitat von Relicted

Moin,

du könntest den dienst direkt aus der registry löschen.
der ist unter anderen in z.b.:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es
gespeichert. such einfach mal in der reg nach dem exe namen des services. so haste gar keine meldung mehr die du unterdrücken müsstest.

gruß
reli

DAS würde ich auf keinen Fall machen!

@JonnyGuitar: Schreib einfach noch ein /silent dazu ... dann sagt er nichts ;)

[Union]

Ja genau. Wenn man nicht genau weiss wie es geht wird an der Registry rumgefrickelt. Besser wäre man hielte sich an die Dokumentation, dann käme vielleicht so etwas raus (ist aber nur ein Vorschlag):

Delphi-Quellcode:

procedure UninstallService(ServiceName: pchar);
var
  SCManager: SC_HANDLE;
  Service: SC_HANDLE;
begin
  SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if SCManager = 0 then Exit;
  try
    Service := OpenService(SCManager, ServiceName, SERVICE_ALL_ACCESS);
    ControlService(Service, SERVICE_CONTROL_STOP, Status);
    DeleteService(Service);
    CloseServiceHandle(Service);
  finally
    CloseServiceHandle(SCManager);
  end;
end;

[JonnyGuitar]

Vielen Dank für die Antworten.

@gsh & Union: Klappt beides wunderbar :)