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;