CurrentUserHasKey
Teste si l'utilisateur connecté a une autorisation Qubes
Syntaxe
function CurrentUserHasKey(accessKey: String): Boolean
accessKey: nom de l'autorisation
Remarques
Identique à la fonction HasKey pour l'utilisateur courant: TUser.HasKey
Voir aussi droits d'accès et CurrentUserHasAccessTo.
Cette fonction peut être utilisée pour effectuer des vérifications préalables et proposer des avertissement plus contextuel, plutôt que de bloquer sur une exception.
Exemples
uses QubesUsers;
if not CurrentUserHasKey('Magic') then begin
ErrorDlg(_('Vous devez être administrateur système pour effectuer cette action'));
exit;
end;
// ...
// actions accessibles uniquement aux administrateurs système
// ...
if not CurrentUserHasKey('Magic') then begin
ErrorDlg(_('Vous devez être administrateur système pour effectuer cette action'));
exit;
end;
// ...
// actions accessibles uniquement aux administrateurs système
// ...