Offene Office dokumente finden...

[kingflo]

Hallo...
Ich habe ein kleines problem...
Ich brauch in einer ListBox eine Liste von office dokumenten, welche gerade offen sind.

Also wenn der Benutzer gerade 2 Word, und 1 Excel datei auf hat, brauch ich in meiner Liste die Dateinamen der beiden Word (*doc) dokumente, und der der Excel datei.

Leider weiß ich nicht, wie man das am bessten und am einfachsten lösen kann.

Wäre echt super, wenn mir da jemand helfen könnte.

[mkinzler]

Code:

NET File

oder sysinternals PsFile

[kingflo]

Ne..., ich will keine Liste von datein, die auf anderen rechnern offen sind, sondern ich möchte in meiner Anwendung, in der ListBox1

eine Liste mit allen laufenden(also offenen) Office dokumenten.

[kingflo]

Also ich habe versucht mit OLEVariant variant darauf zu zugreifen, aber ich weiß nicht, wie ich an die FileNames der dokumente rankomme.

Delphi-Quellcode:

var
  Word: OLEVariant;
begin
 
    Word := CreateOleObject('Word.Application');

Kann mir vielleicht jemand sagen, ob und wie ich auf die dokumente zugreifen kann?

[mkinzler]

Wenn word schon offen ist wäre es besser eine existierende Instanz zu ermittlen

Delphi-Quellcode:

try
    Word := GetActiveOleObject('Word.Application');
  except
    Word := CreateOleObject('Word.Application');
  end;

Die ofenen Dokumente befinden sich in der Collection Documents

[kingflo]

Zitat:

Zitat von mkinzler

Die ofenen Dokumente befinden sich in der Collection Documents

Ich bekomme die aber irgendwie nicht richtig raus, wie kann ich die denn jetzt korrekt ermitteln?
bzw zu ListBox1 hinzufügen?

[mkinzler]

Delphi-Quellcode:

Word.Documents.Item( i).Name;

[kingflo]

ja so gehts danke