VPF::Отслеживать закрытие Word'a - Форум программистов

Fyrklod

Дата 30.9.2010, 10:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 141
Регистрация: 17.10.2006

Репутация: нет
Всего: 1

открываю документ при помощи кода

Код


Variant vWApp,vWDocs,vWDoc,ReplaceType;
                vWApp=Variant::CreateObject("Word.Application"); // Получить доступ к приложению WORD
                vWApp.OlePropertySet("Visible", True);
                vWDocs=vWApp.OlePropertyGet("Documents"); // Доступ к списку документов
                vWDocs.OleProcedure("Open",StringToOleStr(Path)); // Открытие выбранного файла
                vWDoc=vWDocs.OleFunction("Item",1); // Доступ к документу

как можно позже отследить закрыли ли этот файл ?
мне это нужно для
1) если не закрыт, то запрещается закрывать программу вызвавшую документ
2) если документ закрыт, то у меня дальше выполняется нудный порядок

пишу на С++ Builder 2007

--------------------

Зачем компьютеры пищат, когда нажимаешь сразу много клавиш? Чтобы будить уснувших на клавиатуре программистов!

Platov

Дата 18.10.2010, 11:06 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 23.7.2009

Репутация: 2
Всего: 2

Ничего лучше этого не придумал.

Код


 AnsiString sf;
 sf="c:\\tmp1.doc";
  HANDLE f=CreateFile(sf.c_str(), GENERIC_WRITE, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if (f!=INVALID_HANDLE_VALUE) Memo1->Lines->Add("закрыт");
   else Memo1->Lines->Add("открыт");
    CloseHandle(f);

И не забудьте в после работы с вордом закрыть файл и выйти из ворда.
Для экселя делаю так:

Код


 App.OleProcedure("Quit");
 App.OlePropertyGet("WorkBooks").OleProcedure("Close");

Это сообщение отредактировал(а) Platov - 18.10.2010, 11:26

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »