_AppRights

(    Mode   : Integer [;
     ModeEx : Integer, [String] [ ; 
     UserId : Longint = -1 ]]) : Byte, [Longint, [String]]

Vrací přístupová práva pro přihlášeného uživatele. Typ přístupového práva je určen konstantami AR_xxx, které se vkládají na místo parametru Mode. Jestliže se jedná o složitější přístupové právo, musíte ho upřesnit pomocí parametru ModeEx . Jestliže je potřeba zjistit práva pro jiného než přihlášeného uživatele, použijte nepovinný parametr UserId, což je ident uživatele. UserId = -1 znamená aktuálně přihlášený uživatel. Identy všech povolených uživatelů lze získat procedurou GetAllUsersId.

Příklady:

if(_AppRights(AR_ADMIN_IMPORT_PRAV))then
if(_AppRights(AR_MA_ROLE, AR_UID_CTE_DETI))then
if(_AppRights(AR_POVOLENA_MAKRA, "UnivSest.mac"))then
if(_AppRights(AR_VIDI_POLSKUP, IG_UID_OSOBNI))then
if(_AppRights(AR_ADMIN_IMPORT_PRAV, UserId))then

Podívejte se na:  System