1

Мой MS Word имеет СОМ нештатную надстройку (DIRECTUM), которая "прихватывает" открытый файл своим процессом. Не знаю зачем.
Если закрывать файл в оболочке Word, то все будет нормально. Если рабочий файл открыть в OleContainer:

oc1.CreateObjectFromFile(LMDLabel1.Caption,false);

затем

oc1.Close;
oc1.DestroyObject;

то процесс надстройки не завершается. После завершения моей программы выдается сообщение об ошибке COM и в каталоге остается файл с тильдой.
Что нужно сделать, чтобы файл в OleContainer закрывался корректно как в оболочке Word?

1 ответ 1

1

Нашел пример, может поможет:

var
  SaveChanges: OLEVariant;
  OriginalFormat: OLEVariant;
  RouteDocument: OLEVariant;
begin
  SaveChanges := wdDoNotSaveChanges;
  OriginalFormat := unAssigned;
  RouteDocument := unAssigned;
  oc1.Quit(SaveChanges, OriginalFormat, RouteDocument);
end;

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.