| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Leron ©   (2004-06-17 17:20:00) 

САБЖ

---

VMcL   (2004-06-17 23:56:00) [1]

>>YurikGL ©  (17.06.04 20:50) [9]

Тогда добавь ChangeFileExt(..., ''), ведь про расширения тоже ничего не сказано :)

---

YurikGL   (2004-06-17 20:50:00) [2]

> VMcL ©   (17.06.04 20:29) [8]

Было же сказано, что имена нужны, а не полныеимена :)

---

VMcL   (2004-06-17 20:29:00) [3]

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

---

YurikGL   (2004-06-17 20:21:00) [4]

Что-то получилось
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;

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

---

VMcL   (2004-06-17 19:34:00) [5]

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

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

---

Гаврила   (2004-06-17 19:31:00) [6]

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

---

Гаврила   (2004-06-17 19:28:00) [7]

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

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

---

VMcL   (2004-06-17 18:53:00) [8]

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

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1081842614&n=8

---

Leron   (2004-06-17 17:30:00) [9]

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

---

VMcL   (2004-06-17 17:27:00) [10]

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

---

Наверх