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.