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 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]

Word.Documents.Item( i).Name;

[kingflo]

ja so gehts danke