@Astat, vielen Dank,
das mit dem Dienst starten klappt ja einwandfrei, aber beim Programm beenden hab ich noch son Problem.
Als erstes beende ich ja alle Konnektoren usw.
Dann beende ich den
MySQL-Dienst. Der stoppt auch.
Dann bekomme ich die Fehlermeldung 'Can't connect to
MySQL-Server'
Is ja auch so. Soll ja so sein, nur will ich eben die Fehlermeldung nicht.
Achja und das Programm wird auch nicht geschlossen.....
Delphi-Quellcode:
procedure TMenue.BuendClick(Sender: TObject);
var st : integer;
begin
st:=ServiceGetStatus(PChar(PC), PChar(Dienst));
Datamodule1.CDS1.Active:=False;
Datamodule1.CDS2.Active:=False;
Datamodule1.SDS1.Active:=False;
Datamodule1.SDS2.Active:=False;
Datamodule1.DBConnect.Connected:=False;
ServiceStop(nil, PChar(Dienst), 500);
showmessage('Dienst wird beendet');
Sleep(500);
repeat
st:=ServiceGetStatus(PChar(PC), PChar(Dienst));
until st = 1;
Application.Terminate;
end;