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 !