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:

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

[SirThornberry]

du hast dir eigentlich schon selbst die Antwort gegeben.

Zitat:

Der Service DisplayName ist Pop3Service

Du solltest den Servicenamen und nicht den Displaynamen verwenden.

[emsländer]

Zitat von SirThornberry:

du hast dir eigentlich schon selbst die Antwort gegeben.

Zitat:

Der Service DisplayName ist Pop3Service

Du solltest den Servicenamen und nicht den Displaynamen verwenden.

auch dieser ist Pop3Service und so taucht er auch in der Liste der Dienste auf

Gruss

EL

[edit=SirThornberry]Quote-Tag berichtigt - Mfg, SirThornberry[/edit]

[Luckie]

Was sagt GetLastError?

[emsländer]

Zitat von Luckie:

Was sagt GetLastError?

0

Gruss

EL

[SirThornberry]

und hmanager ist auch <> 0? Funktioniert es mit anderen Services?

[emsländer]

Zitat von SirThornberry:

und hmanager ist auch <> 0? Funktioniert es mit anderen Services?

hmanager ist 2242112. Mit anderen Diensten (z.B. Fax) gehts

Gruss
EL

[SirThornberry]

hmm, dann schau mal mit folgender Funktion welcher Name dir für den Dienst zurück gegeben wird:

Delphi-Quellcode:

function GetServiceName(ADisplayName: String): String;
var
  lGiveback       : String;
  lManager        : Cardinal;
  lMem,
  lServiceStatus  : PEnumServiceStatus;
  lNeeded,
  lCnt,
  lResHandle      : Cardinal;
  lCount          : Integer;
begin
  ADisplayName := AnsiLowerCase(ADisplayName);
  lGiveback := '';
  lManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS or SC_MANAGER_ENUMERATE_SERVICE);
  if (lManager <> 0) then
  begin
    lResHandle  := 0;
    lMem        := nil;
    EnumServicesStatus(lManager, SERVICE_WIN32 or SERVICE_DRIVER, SERVICE_STATE_ALL, lMem^, 0, lNeeded, lCnt, lResHandle);
    if (GetLastError = ERROR_MORE_DATA) then
    begin

      lResHandle := 0;
      GetMem(lMem, lNeeded);
      if EnumServicesStatus(lManager, SERVICE_WIN32, SERVICE_STATE_ALL, lMem^, lNeeded, lNeeded, lCnt, lResHandle) then
      begin
        lServiceStatus := lMem;
        lCount := 0;
        while (lCount < lCnt) and (lGiveback = '') do
        begin
          if (ADisplayName = AnsiLowerCase(String(lServiceStatus^.lpDisplayName))) then
            lGiveback := String(lServiceStatus^.lpServiceName);
          lServiceStatus := Pointer(Cardinal(lServiceStatus) + SizeOf(TEnumServiceStatus));
          inc(lCount);
        end;
      end;
      FreeMem(lMem);
    end;
    CloseServiceHandle(lManager);
  end;
  result := lGiveback;
end;

Vielleicht muss Groß-/Kleinschreibung beachtet werden.

[emsländer]

ich war in der Zwischenzeit nicht untätig und habe folgendes herausgefunden:

Wenn ich als Startname: frmmain angebe, klappt es!!!! (Das war mir schon mal bei einem anderen Dienst aufgefallen)
Aber: frmmain ist nur der Name der Form. Der Dienst UND der Displayname sind beide Pop3Service.
Auch im XP-DienstManager steht Pop3Service. Wenn ich den über die Konsole starte, dann auch mit net start pop3service.

und nun?

Ergänzung: ich habe mit getservicename alles durch. Result immer ''

Gruss

EL