TUser.HasAccessTo
| TUser = class (TObject) | Interface de TUser | Exemples de TUser |
Qubes 9.0 Teste si l'utilisateur a au moins une autorisation Qubes
Syntaxe
function HasAccessTo(accessKey: String): Boolean
accessKey: liste des droits autorisés, sous la forme SCSVText (séparateur point-virule)
Remarques
Cette fonction sert à vérifier si l'utilisateur a au moins un droit d'accès indiqué dans la liste accessKey.
Si l'utilisateur est administrateur système (droit 'Magic'), la fonction renvoie toujours True.
Si on n'a pas précisé de droit (accessKey est vide), la fonction renvoie True.
Pour vérifier les droits d'accès pour l'utilisateur courant, il faut plutôt utiliser CurrentUserHasAccessTo.
Voir aussi droits d'accès.
Exemples
uses QubesUsers;
if not CurrentUserHasAccessTo('AK_Legacy\Prod;AK_Legacy\Eqpt') then begin
ErrorDlg(_('Accès refusé'));
exit;
end;
// ...
// actions accessibles uniquement aux utilisateurs autorisés
// ...
if not CurrentUserHasAccessTo('AK_Legacy\Prod;AK_Legacy\Eqpt') then begin
ErrorDlg(_('Accès refusé'));
exit;
end;
// ...
// actions accessibles uniquement aux utilisateurs autorisés
// ...