OpenLogons(NoFilterLogons: Boolean): IAuditLogons;
NoFilterLogons - определяет, будет ли использоваться фильтр.
Метод OpenLogons возвращает информацию о соединениях с репозиторием.
Sub Main;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
AL: IAuditLog;
ALogon: IAuditLogons;
s: String;
Begin
MB:=MetabaseClass.Active;
MS:=MB.Security;
Al:=MS.OpenAuditLog;
ALogon:= AL.OpenLogons(False);
s:=ALogon.UserName;
End Sub Main;
После выполнения примера в переменной «s» будет содержаться наименование последнего пользователя, осуществлявшего вход в текущий репозиторий.
См. также: