Moin,
ich habe hier einen Dienst, welcher sich Pop3Service nennt. Ich möchte diesen vom Steuerprogramm aus starten und stoppen können. Dazu bediene ich mich der
Tools von Luckie. Nur leider wird der Dienst nicht gestartet.
zunächst mal ein paar Codezeilen:
Delphi-Quellcode:
cname := getcomputername; // ermittelt den Namen des Computers, in diesem Fall PC-PAPA-XP64
procedure TFrmMain.btn_service_startClick(Sender: TObject);
begin
if ServiceRunning(pchar(cname),'Pop3Service')
then ServiceStop(pchar(cname),'Pop3Service')
else ServiceStart(pchar(cname),'Pop3Service');
check_service_running;
end;
procedure TFrmMain.check_service_running;
begin
if ServiceRunning(pchar(cname),pchar('Pop3Service')) then
btn_service_start.Caption := 'Service anhalten' else btn_service_start.Caption := 'Service start';
end;
Wenn ich im Debugger schaue, ist dieser Aufruf:
OpenService(h_manager, PChar(ServiceName)
0 müsste aber <> 0 sein.
Der Service DisplayName ist Pop3Service
Wer hat nen heißen Tipp?
Gruss
EL