Dienst deinstallieren ohne Erfolgsmeldung

[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;