Ü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:

markieren

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]

Überprüfen, ob Microsoft Word installiert ist

Überprüfen, ob Microsoft Word installiert ist

Forumregeln