Тема: Как в архиве сделать файл активным?
Здравствуйте, есть кусок кода 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 'Член группы не найден'.".
Подскажите в чем дело?