Existenz eines Dienstes kann unter Win 2008 nicht abgefragt werden

[Harry Stahl]

Ich habe hier einen Dienst, der als Datenserver läuft. Beim Start des Programms prüft es, ob es auch als Dienst im System eingetragen ist. Dazu verwende ich die folgende Funktion:

Delphi-Quellcode:

function hs_ExistsService: Boolean;
  Var
    Info : TServiceDescriptor;
    Buf : Array[0..255] of char;
    N : String;
    Size : DWord;
  begin
    Result := False;
    Try
       With TServiceManager.Create(Nil) do 
        try
          Connected:=True; // Ausstieg hier
          QueryServiceConfig('TimOnizeServer',Info); // oder hier
          If CompareText(Info.UserName,'LocalSystem')=0 then
            Info.UserName:='System';
        finally
          Connected:=False;
          Free;
        end;
      Size:=256;
      GetUserName(@Buf[0],Size);
      N:=Buf;
      Result:=CompareText(N, Info.UserName)=0;
    Except
    end;
  end;

Bei einem Anwender gibt es unter Windows Server 2008 R2 an einer der beiden markierten Stellen offensichtlich eine Exception, so dass hier immer als Ergebnis "False" zurückgeliefert wird.

Der TServiceManager stammt aus der anliegenden Datei, die ich mal irgendwann im Netz gefunden habe.

Hat Jemand hier eine Idee, was die Ursache sein könnte, bzw. Vorschlag zur Abhilfe? Gibt es hier irgendwelche bekannten Probleme mit Windows 2008?

Bei mir hier funktioniert es auf allen PC's ohne Probleme, auch auf meinem Windows Server 2012, den ich bei Strato habe.

Das Problem beim Kunden ist insofern erst mal gelöst, als dass nur ein Ini-Eintrag geprüft wird, ob das Programm als Dienst ausgeführt werden soll, dann startet er anschließend auch. Lieber hätte ich natürlich die definitive Rückmeldung vom System, dass der Dienst existiert.