doc in Word geöffnet?

[knochen]

Hallo zusammen,

wie kann ich feststellen, ob eine bestimmte Worddatei, z.B. 'test.doc', gerade in Word geöffnet ist?

Vielen Dank für eure Tipps.

[p80286]

Dann schau mal hier herein (vielen Dank an Hathor!)

Gruß
K-H

[knochen]

Danke für die schnelle Antwort. Die Lösung wird mir bei einer anderen Problemstellung gewiss nützlich sein.
Hier war die Problemstellung jedoch so, dass ich feststellen möchte, ob eine Datei gerade in Word geöffnet ist.

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

[p80286]

Zitat von knochen:

Danke für die schnelle Antwort. Die Lösung wird mir bei einer anderen Problemstellung gewiss nützlich sein.
Hier war die Problemstellung jedoch so, dass ich feststellen möchte, ob eine Datei gerade in Word geöffnet ist.

Falls das Word auf Deinem rechner die Datei geöffnet hat, dann wird das angezeigt.


Gruß
K-H

[knochen]

Zitat von p80286:

Zitat von knochen:

Danke für die schnelle Antwort. Die Lösung wird mir bei einer anderen Problemstellung gewiss nützlich sein.
Hier war die Problemstellung jedoch so, dass ich feststellen möchte, ob eine Datei gerade in Word geöffnet ist.

Falls das Word auf Deinem rechner die Datei geöffnet hat, dann wird das angezeigt.


Gruß
K-H

Mag sein. Allerdings kann ich die EXE nicht starten, weil sie von Kaspersky direkt nach dem Kompilieren wieder gelöscht wird. Meldung:
"nach Quarantäne verschoben: trojanisches Programm HEUR:Trojan.Win32.Generic (Modifikation) Die Datei: C:\...\FileUnlock.exe"

[p80286]

Zitat von knochen:

Mag sein. Allerdings kann ich die EXE nicht starten, weil sie von Kaspersky direkt nach dem Kompilieren wieder gelöscht wird. Meldung:
"nach Quarantäne verschoben: trojanisches Programm HEUR:Trojan.Win32.Generic (Modifikation) Die Datei: C:\...\FileUnlock.exe"

Da würde ich jetzt mal Kaspersky den schwarzen Peter zuschieben. Gibt es eine Möglichkeit ein (oder mehrere) Verzeichnis(se) von dem Scan auszunehmen?

(und es es kein Fehler den Kaspers die Echse zu schicken, als false positiv)

Gruß
K-H

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