doc in Word geöffnet?

[knochen]

@baumina:
Danke für den Code. Er funktioniert und ich habe ihn ein wenig modifiziert

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
var
  i: Integer;
  WordObj: OLEVariant;
begin
  WordObj := ComObj.CreateOleObject('Word.Application');
  for i := 1 to WordObj.Documents.Count do
  begin
    if AnsiUpperCase(WordObj.Documents.Item(i).Fullname) = 'C:\TEMP\TEST.DOCX' then
    begin
      Showmessage('Aha, schon offen');
    end;
  end;
  WordObj.Quit;  // wichtig, sonst lungert noch eine Wordinstanz im Hintergrund herum
end;

@p80286:
Nachdem ich Image1 gelöscht habe, erscheint die Meldung von Kaspersky nicht mehr. Das Programm selbst hängt sich aber auf, sobald ich per Drag und Drop eine Datei hineinziehe. Zu Debugging in Code, den ich in Teilen nicht verstehe, habe ich wenig Ambitionen, zumal eine einfache Lösung existiert.

Thanks anyway.