Outlook Version ermitteln (Ohne OleObj)

[shmia]

Delphi-Quellcode:

function ProgIDExists(const ProgID:WideString):Boolean;
var
   tmp : TGUID;
begin
   Result := Succeeded(CLSIDFromProgID(PWideChar(ProgID), tmp));
end;

if ProgIDExists('Outlook.Application.12') then
  ShowMessage('Outlook Version 12 installiert')
else if ProgIDExists('Outlook.Application.11') then
  ShowMessage('Outlook Version 11 installiert')  // Outlook 2003?