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