IsLocked: Boolean;
The IsLocked property determines locking of the account of the specified user.
Sub Main;
Var
MB: IMetabase;
User: IMetabaseUser;
Users: IMetabaseUsers;
MS: IMetabaseSecurity;
Begin
MB:=MetabaseClass.Active;
MS:=MB.Security;
Users:=MS.Users;
User:=Users.Item(0);
User.IsLocked:=True;
MS.Apply;
End Sub Main;
After executing the example the account of the first user created in the security manager is locked.
See also: