Probleme bei programmgesteuertem Start von Diensten

**emsländer**

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:

zusammenfalten · markieren

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

Probleme bei programmgesteuertem Start von Diensten

Probleme bei programmgesteuertem Start von Diensten

Forumregeln