Check auf installiertes Word

[Robert Marquardt]

Herzlichen Dank.
Das sollte ab in die Codelib.

Hier noch ein bischen aufgereinigt.

Delphi-Quellcode:

uses
  ActiveX;

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

function IsWordInstalled: Boolean;
begin
  Result := ProgIDExists('Word.Application');
end;