IMetabaseUpdate.AllowReplaceSD

Синтаксис Fore

AllowReplaceSD: Boolean;

Синтаксис Fore.NET

AllowReplaceSD: Boolean;

Описание

Свойство AllowReplaceSD определяет возможность замены списка контроля доступа безопасности для объектов обновления.

Пример Fore

Для выполнения примера добавьте ссылки на системные сборки «Metabase». Предполагается наличие файла обновления «C:\Update.pefx», в котором есть элемент с идентификатором «OBJ1» объект репозитория или специальный объект.

Sub UserProc;
Var
    MB: IMetabase;
    Update: IMetabaseUpdate;
    UON: IMetabaseUpdateObjectNode;
    obj: IMetabaseObjectDescriptor;
    objkey: integer;
Begin
    MB := MetabaseClass.Active;
    Update := Mb.CreateUpdate;
    Update.LoadFromFileNF("D:\Update.pefx");
    obj := MB.ItemById("OBJ1");
    objkey := obj.Key;
    Update.AllowReplaceSD := True;
    UON := Update.RootFolder.FindObject(objkey);
    UON.UpdatePart := MetabaseObjectUpdatePart.ReplaceSecurityDescriptor;
    Update.SaveToFileNF("D:\Update_AR.pefx");
End Sub UserProc;

После выполнения примера в папку «D:\» сохранится файл обновления с измененным списком контроля доступа для объекта с идентификатором «OBJ1».

Пример Fore.NET

Sub UserProc(Params: StartParams);
Var
    MB: IMetabase;
    Update: IMetabaseUpdate;
    UON: IMetabaseUpdateObjectNode;
    obj: IMetabaseObjectDescriptor;
    objkey: uinteger;
Begin
    MB := Params.Metabase;
    Update := Mb.CreateUpdate();
    Update.LoadFromFileNF("D:\"+ "Update.pefx", UpdateLoadMode.ulmReplace);
    obj := MB.ItemById["FLASH_DO"];
    objkey := obj.Key;
    Update.AllowReplaceSD := True;
    UON := Update.RootFolder.FindObject(objkey);
    UON.UpdatePart := MetabaseObjectUpdatePart.moupReplaceSecurityDescriptor;
    Update.SaveToFileNF("D:\"+ "Update_AR.pefx");
End Sub;

См. также: