LogonCredentials: ICredentials;
Свойство LogonCredentials возвращает учетные данные, использованные при входе.
Sub Main;
Var
MB: IMetabase;
LogSes: ILogonSession;
Cr: ICredentials;
Begin
MB:=MetabaseClass.Active;
LogSes:=MB.LogonSession;
Cr:=LogSes.LogonCredentials;
End Sub Main;
После выполнения примера в переменной «Cr» будут содержаться учетные данные текущего пользователя, использованные при входе в репозиторий.
См. также: