@macci,
Alos so die Lampe in diesen Dingen bin ich ja nicht, aber das hier compilierte wenigstens:
Delphi-Quellcode:
uses winsvc;
Procedure TForm1.Button1Click(Sender: TObject);
Var
h: integer;
Begin
h := OpenSCManager('', 'SERVICES_ACTIVE_DATABASE', GENERIC_EXECUTE);
If h <> 0 Then Begin
End
Else Begin
showmessage('nein');
End;
End;
Nur das bereits hier die showmessage(nein) kommt. Zudem ist ja die frage wie der Dienst heist denn ich so abschalten soll. in meiner Liste der dienste ( systemsteuerung -> verwaltung -> Dienste ) konnte ich zumindest keinen Speziellen "Maus" dienst finden ...
[edit]
also mit ein bischen rumprobieren gins, nur der name des dienstes fehlt immer noch ..
Delphi-Quellcode:
Procedure TForm1.Button1Click(Sender: TObject);
Var
h: integer;
Begin
h := OpenSCManager(Nil, Nil, GENERIC_EXECUTE);
If h <> 0 Then Begin
OpenService(h, ??? , SERVICE_STOP);
End
Else Begin
showmessage('nein');
End;
End;