Тема: Как в архиве сделать файл активным?

Здравствуйте, есть кусок кода Delphi:

var
  SingleDoc: ISingleDoc;
  DocFiles: Variant;
  DocRec: tagCreateDocStruct;

begin
....
    DocRec.Flags:= 3;
    DocRec.DocNote:= 'Test';
    DocRec.DocName:= '';
    DocRec.DocTypeID:= 10;
    SingleDoc:= App.CreateDocEx(DocRec);
    DocFiles:= SingleDoc.Properties['FILES'].AsIDispatch;
    DocFiles.AddFile('C:\test.dwg', 5);
    DocFiles.ActionList.ActionByName('SetActiveAction').Execute;
end;

На последней строчке вываливается ошибка: "Exception class EOleSysError with message 'Член группы не найден'.".
Подскажите в чем дело?

(изменено: Алексей Болдырев, 25 марта 2010 14:17:24)

Re: Как в архиве сделать файл активным?

Вопрос решен, нужно было вместо DocFiles.ActionList.ActionByName('SetActiveAction').Execute;
написать DocFiles.ActionList.ActionByName['SetActiveAction'].Execute;

Ошибка исчезла, но активным документ не становится.

Re: Как в архиве сделать файл активным?

Лучше всего использовать  функцию IDocFiles.AddFileEx

(изменено: Алексей Болдырев, 25 марта 2010 16:29:39)

Re: Как в архиве сделать файл активным?

Олег Зырянов пишет:

Лучше всего использовать  функцию IDocFiles.AddFileEx

Спасибо