А как получить имена всех запущенных файлов word a

← →
Leron (2004-06-17 17:20) [0]

САБЖ

← →
VMcL © (2004-06-17 17:27) [1]

what is "запущенный файл word"a"?

← →
Leron (2004-06-17 17:30) [2]

Ну открыл 5 файлов .doc.
Так вот, как получить их имена?

← →
VMcL © (2004-06-17 18:53) [3]

Вот похожая тема:

http://delphimaster.net/view/10-1081842614/

← →
Гаврила © (2004-06-17 19:28) [4]

Вроде как у Application есть коллекция документов
только сначала надо проверить, запущен ли сам word
если не запущен - нет документов, если запущен - то к нему надо подключиться ,а не создавать новый экземпляр

if GetActiveObject(...) <> MK_E_UNAVAILABLE then
Application:= GetActiveOleObject(...)

← →
Гаврила © (2004-06-17 19:31) [5]

Разумется под Application я тут подразумеваю не наш "родной" экземпляр класса TApplication, а интерфейс _Application из библиотеки типов Word"а

← →
VMcL © (2004-06-17 19:34) [6]

>>Гаврила © (17.06.04 19:28) [4]

Да. С Вордом таких проблем как с Экселем, вроде, нет: excel.exe всегда в одном экземпляре. Так что можно по-простому.

← →
YurikGL © (2004-06-17 20:21) [7]

Что-то получилось
procedure TForm1.Button1Click(Sender: TObject); var i:integer; vr:OleVariant; begin try WordApplication1.Connect; for i:=1 to WordApplication1.Documents.Count do begin vr:=i; Memo1.Lines.add(WordApplication1.Documents.Item(vr).Name); end; finally WordApplication1.Disconnect; end;

Мастера, покритикуйте корректность.

Memo1.Lines.add(WordApplication1.Documents.Item(vr).FullName);

А как получить имена всех запущенных файлов word a Найти похожие ветки