Einzelnen Beitrag anzeigen

Benutzerbild von Harry Stahl
Harry Stahl

Registriert seit: 2. Apr 2004
Ort: Bonn
2.323 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Existenz eines Dienstes kann unter Win 2008 nicht abgefragt werden

  Alt 11. Jul 2015, 21:23
So, der Kunde war noch mal so nett und hat das Programm mit der ergänzten Error-Abfrage ausgeführt. Der Fehler tritt an dieser Stelle auf:

QueryServiceConfig('TimOnizeServer',Info); Die Meldung lautet:

"FehlerTyp: EAccessViolationInfo: Zugriffsverletzung bei Adresse 00409842 in Modul 'Timoserv.exe'. Schreiben von Adresse 75D549C1"

Und so sieht die aufgerufende Funktion aus:

Delphi-Quellcode:
procedure TServiceManager.QueryServiceConfig(ServiceName : String; Var Config : TServiceDescriptor);
Var
  H : THandle;
begin
  H:=GetServiceHandle(ServiceName,SERVICE_QUERY_CONFIG);
  Try
    QueryServiceConfig(H,Config);
  Finally
    CloseServiceHandle(H);
  end;
end;
Wie gesagt sonst tritt der Fehler nicht auf, nur auf dem System des Kunden.

Geändert von Harry Stahl (11. Jul 2015 um 23:09 Uhr)
  Mit Zitat antworten Zitat