doc in Word geöffnet?

[baumina]

Ich würde es in dieser Art versuchen:

Delphi-Quellcode:

 
WordObj := ComObj.CreateOleObject('Word.Application');
for i:=1 to WordObj.Documents.Count do
begin
  If WordObj.Documents.Item(i).fullname = 'c:\temp\test.docx' then
  begin
    Showmessage('Aha, schon offen');
  end; 
end;

UNGETESTET !