Word Document offen?

[Beck93]

Hi,

ich bins schon wieder, ich stoße jeden Tag auf neue Probleme in meinen verschiedenen Programmen.

Also ich öffne ein Word Document über Delphi. Nur möchte ich vorher schauen ob es nicht schon geöffnet ist, da sonst immer diese Meldung mit Schreibgeschütz öffnen kommt, was ich aber nicht möchte

Hier ist der Quelltext wie ich word öffne:

Delphi-Quellcode:

try
    WordObj := ComObj.CreateOleObject('Word.Application');
    WordObj.documents.open(Exe);
    Doc := WordObj.ActiveDocument;
except
    ShowMessage('Die Datei konnte nicht geöffnet werden!');
    Exit;
  end;

Wie könnte ich jetzt überprüfen ob die Datei schon offen ist?

Bin für jede Hilfe sehr Dankbar

Grüße

Beck93