Check auf installiertes Word

[shmia]

Folgender Code ist "sauberer" als die bisherigen Vorschläge:

Delphi-Quellcode:

uses ...,ActiveX;

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

// is WinWord installiert ?
function IsWordInstalled:Boolean;
begin
   result := ProgIDExists('Word.Application');
end;