Outlook Version ermitteln (Ohne OleObj)

[sirarcher]

Hi,

momentan ermittle ich die aktuelle Outlookversion mittels "CreateOleObject".

Delphi-Quellcode:

function TOSSettings.GetOutlookVersion(): string;
var
  objOutlook: OleVariant;
begin
  try
    objOutlook := CreateOleObject('Outlook.Application');
    Result := LeftStr(objOutlook.Version, 2);
  except
    on E:Exception do
    begin
      //Wenn Fehler, dann ist Outlook 97
      Result := 'xx';
    end;
  end;
  WriteCurrentActivity('Outlook version detected.', enGreenHook);  
end;

Weiß jemand einen Weg, wie ich ohne OleObjekt die aktuellste Outlook Version bestimmen kann?

Herzlichen Dank!
Gruss