Check auf installiertes Word

[Robert Marquardt]

Wie testet man am besten auf das Vorhandensein von Word?
Ich will Word zur Konversion von HTML in DOC und RTF nutzen und moechte die Menuepunkte enablen/disablen.

Im Augenblick teste ich auf die Existenz von HKEY_CURRENT_USER\Software\Microsoft\Office\Word in der Registry.

[turboPASCAL]

Hilft dir das ?
http://www.dsdt.info/tipps/?id=599

[xaromz]

Hallo,

versuch doch, Dir das COM-Objekt zu holen. Wenn das schiefgeht, dann gibt's kein Word.

Gruß
xaromz

[Matze]

Moin,

im SDC ist dazu folgender Code.

[Robert Marquardt]

Soll das bedeuten das bereits "Word := TWordApplication.Create(nil);" versagt wenn Word nicht installiert ist?

Edit:
Matze hat den richtigen Hinweis gegeben (richtig zumindest fuer meine Belange).
Test auf "HKEY_CLASSES_ROOT\Word.Application".

[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;

[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;

[Sharky]

Zitat:

Zitat von Robert Marquardt

... Das sollte ab in die Codelib. ...

Hai Robert,

oben Rechts bei jedem Beitrag gibt es diese "Glühbirnen"-Symbol. Damit kannst Du einen Beitrag für die Code-Library vorschlagen.
Die CodeLib-Manger bekommen dann eine Meldung und kümmern sich darum ;-)