Текущий архив: 2004.07.04;
Скачать: CL | DM;
Вниз
А как получить имена всех запущенных файлов 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;
Мастера, покритикуйте корректность.
← →
VMcL © (2004-06-17 20:29) [8]Memo1.Lines.add(WordApplication1.Documents.Item(vr).FullName);
← →
YurikGL © (2004-06-17 20:50) [9]
> VMcL © (17.06.04 20:29) [8]
Было же сказано, что имена нужны, а не полные имена :)
← →
VMcL © (2004-06-17 23:56) [10]>>YurikGL © (17.06.04 20:50) [9]
Тогда добавь ChangeFileExt(..., ""), ведь про расширения тоже ничего не сказано :)
Страницы: 1 вся ветка
Текущий архив: 2004.07.04;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.026 c
