IMetabasePolicy.SupportUserPrivateFolder

Синтаксис Fore

SupportUserPrivateFolder: Boolean;

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

SupportUserPrivateFolder: Boolean;

Описание

Свойство SupportUserPrivateFolder определяет использование механизма личных папок пользователей.

Пример Fore

Выполнение примера предполагает наличие формы с кнопкой. Необходимо подключить системную сборку Metabase. Пример является обработчиком события для кнопки.

    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    MPolicy: IMetabasePolicy;
Begin
    MB := MetabaseClass.Active;
    MS := MB.Security;
    MPolicy := MS.Policy;
    // Включение механизма личных папок пользователей
    MPolicy.SupportUserPrivateFolder := True;
    // Возвращаем идентификатор папки, содержащей личные папки пользователей    
    Button1.text := MPolicy.UserPrivateFolderRoot.Id;
End Sub Button1OnClick;

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

Пример Fore.NET

Пример для Fore.NET аналогичен примеру для Fore.

    Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    MPolicy: IMetabasePolicy;
Begin
    MB := Self.Metabase;
    MS := MB.Security;
    MPolicy := MS.Policy;
    // Включение механизма личных папок пользователей
    MPolicy.SupportUserPrivateFolder := True;
    // Возвращаем идентификатор папки, содержащей личные папки пользователей    
    Button1.text := MPolicy.UserPrivateFolderRoot.Id;
    End Sub;

См. также:

IMetabasePolicy