WMI innerhalb eines Dienstes

[mkinzler]

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.