AutoRun: IMetabaseAutoRun;
Свойство AutoRun возвращает объект автозапуска для пользователя.
Sub UserProc;
Var
MB: IMetabase;
Users: IMetabaseUsers;
User: IMetabaseUser;
Begin
MB := MetabaseClass.Active;
Users := MB.Security.Users;
User := Users.Item(0);
If IsNull(User.AutoRun.Object) = False Then
Debug.WriteLine("Объект автозапуска: " + User.AutoRun.Object.Id);
End If;
End Sub UserProc;
После выполнения примера в консоль среды разработки будет выведен идентификатор объекта запуска, если он назначен для первого пользователя.
См. также: