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.