Hallo,
ich habe ein Programm geschrieben, welches auf Änderungen der Laufwerke reagiert. Nun habe ich das Programm in einen Dienst
verpackt. Der Dienst wird allerdings nach kurzer Zeit beendet.
Das Problem liegt in der Zeile:
FServices := FLocator.ConnectServer('.', 'root\cimv2', '', '', '', '', wbemConnectFlagUseMaxWait, nil);
Hat jemand Erfahrung mit
WMI und kann mir bei meinen Problem helfen?
Ich konnte das Problem weiter eingrenzen:
Dieser Code stammt aus der Wrapper-
Unit WbemScripting_TLB.pas
Delphi-Quellcode:
procedure TSWbemLocator.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer; <---- Hier wird der Fehler ausgelöst
Fintf:= punk as ISWbemLocator;
end;
end;
Der Fehler ist ein EOleSysError mit der Meldung 'CoInitialize wurde nicht aufgerufen'
as Problem liegt wohl am CoCreateInstance welches aus der ole32.dll geladen wird/soll. Hat ein Service kein Zugriff auf diese
dll, oder liegt das Problem wo anders (z.B. {$APPTYPE CONSOLE} ).
Kann mir jemand weiterhelfen?
Markus.