IUserProfile.PrivateFolder

Синтаксис

PrivateFolder: IMetabaseObjectDescriptor;

Описание

Свойство PrivateFolder определяет личную папку пользователя.

Пример

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Mb: IMetabase;
    User: IMetabaseUser;
    Prof: IUserProfile;
Begin
    Mb := MetabaseClass.Active;
    User := Mb.LogonSession.User;
    Prof := User.Profile.Edit;
    Button1.Text := Prof.PrivateFolder.Id;
End Sub Button1OnClick;

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

См. также:

IUserProfile