PrivateFolder: IMetabaseObjectDescriptor;
Свойство PrivateFolder возвращает личную папку текущего пользователя.
Выполнение примера предполагает наличие формы с кнопкой. Пример является обработчиком события для кнопки.
Добавьте ссылку на системную сборку Metabase.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
MB: IMetabase;
Begin
MB := MetabaseClass.Active;
Debug.Write(MB.PrivateFolder.Id + " " + MB.PrivateFolderRoot.Id);
End Sub Button1OnClick;
При выполнении примера в консоль среды разработки будут выведены идентификатор личной папки текущего пользователя и идентификатор корневой папки для личных папок пользователей.
См. также: