geöffnete Dateien anzeigen

[Bora Yalkinoglu]

Hallo,

wie könnte ich die Namen der *.doc Dateien anzeigen, die momentan per MS Word geöffnet sind?
Was allerdings wichtig ist, der komplette Pfadname der Datei(*.doc) muss angezeigt werden können!

Vielen Dank im voraus!

Mfg,
Bora

[Torsten Grundke]

Hallo Bora,

<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
aOLEVariant, aOLEVariant1: OLEVariant;
il_i: integer;
sl_temp: string;
begin
if wordapplication1.Documents.Count < 1 then exit;
for il_i := 1 to wordapplication1.Documents.Count do begin
aOLEVariant := il_i;
wordapplication1.Documents.Item(aOLEVariant).Activ ate;
aOLEVariant1 := wordapplication1.ActiveDocument.Application.Dialog s.Item(wdDialogFileSummaryInfo);
sl_temp := aOLEVariant1.Directory + '\' + aOLEVariant1.FileName;
if sl_temp <> '\' then ListBox1.Items.Add(sl_temp);
aOLEVariant1.execute;
end;
end;
</pre>

Tschüß

Torsten

PS: die Frage wäre im Delphi/COM-DCOM... - Ordner besser aufgehobe