Überprüfen, ob Microsoft Word installiert ist

[Matze]

shmia zeigt hier, wie man einfach überprüfen kann, ob Microsoft Word am Rechner installiert ist.

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;

Der Aufruf ist zwar trivial, dennoch hier ein Beispiel:

Delphi-Quellcode:

if IsWordInstalled then
begin
  ShowMessage('MS Word ist installiert');
end else
begin
  ShowMessage('MS Word ist NICHT installiert');
end;

[edit=fkerber]Neu abgespeichert wg. Code-Highlighting. Mfg, fkerber[/edit]