Запретить сохранять файлы (состояние) при выходе из Компас

[SerGoVec]

Всем привет!
Можно ли, прораммно запретить Компасу, сохранять состояние открытых в нем документов, при выходе из него. Когда заново открываем Компас в нем не должно быть ранее открытых документов. Если можно, то как?)

Аналог: Сервис - Параметры - Система - Файлы - Сохранение конфигурации (состояние открытых документов - не сохранять), только программно.

[Sabahs]

Можете попробовать:
ISystemSettings.FilesAutoSaveSwitchOn - автоматическое сохранение файлов документов;
ISystemSettings.FilesBackupPrevCopySwitchOn - автоматическое сохранение предыдущей копии файла документа.

[SerGoVec]

Попробовал, нужного эффекта нет.

[Sabahs]

Тогда в момент запуска Компаса запретить открытие файлов с помощью события IKompasObjectNotify.BeginOpenDocument, по событию IKompasObjectNotify.BeginOpenFile определять, что Компас загрузился и открытых документов нет.

[SerGoVec]

Сделал так:

подписался на сабытие ApplicationEvent.BeginCloseAllDocument (пример есть в ...SDK\Pascal\Delphi\step12)
и перебрал все открытые в компасе документы, с целью закрыть их.
При закрытии документа, непосредственно перед выходом из Компаса, состояния открытых документов не запоминаются. При новом открытии компаса, открытых документов, с которыми вы ранее работали не будет.

Код:
function ApplicationEvent.BeginCloseAllDocument(): WORDBOOL;
var
  collectionDoc: IDocuments;
  i: Integer;
begin

  GetNewKompasAPI;
  if KompasAPI <> nil then
  begin
    collectionDoc := KompasAPI.Documents;

    for i := (collectionDoc.Count)-1 downto 0  do
    begin
      collectionDoc.Item.Close(kdDoNotSaveChanges);
    end;
  end;
  Result := True;

end;

где GetNewKompasAPI, это:

procedure GetNewKompasAPI();
var
  disp: IDispatch;
begin

  if KompasAPI = nil then
  begin
    disp := IDispatch(CreateKompasApplication);
    KompasAPI := disp as IApplication;
  end

end;

[msvteh]

collectionDoc.Item[i ].Close(kdDoNotSaveChanges);
скобок [i ] нет.
изменённый документ не сохраняется, мне по душе PromptToSaveChanges

[SerGoVec]

Тогда в момент запуска Компаса запретить открытие файлов с помощью события IKompasObjectNotify.BeginOpenDocument, по событию IKompasObjectNotify.BeginOpenFile определять, что Компас загрузился и открытых документов нет.

Как это реализовать? Допустим в общую переменную я запишу состояния начала работы компаса и по этому значению запрещу открывать документы. Но как потом определить, что документы теперь можно открывать, в какой момент времени, по какому событию.


возможно есть проще вариант, как-нибудь в интерфейс компаса подлезть и переключить состояние открытых документов? Вопрос очень актуален.

ps. В моей прошлой записи реализации не учитывалось - сохранять/не сохранять существующие измененные документы (это не проблема), а вот сохранить только что созданный документ (который существует только в памяти компаса) и закрыть его (-пользователь может сохранить, может не сохранить-) это проблема, так, как при этом срабатывают совершенно другие события и идет выход из события BeginCloseAllDocument().

[Sabahs]

Я за Вас писать не буду, поверьте, мне есть над чем думать.
PS. Если учесть, что это просто элементарно.

Но как потом определить, что документы теперь можно открывать, в какой момент времени, по какому событию.

По Вашему, событию.

[SerGoVec]

Тогда в момент запуска Компаса запретить открытие файлов с помощью события IKompasObjectNotify.BeginOpenDocument, по событию IKompasObjectNotify.BeginOpenFile определять, что Компас загрузился и открытых документов нет.

точно, спасибо!