GetAllUsersId

(dim F : File)

Ve streamu F vrací základní údaje všech povolených uživatelů. Stream F musí být otevřen a před naplněním bude smazán. V rámci údajů budou i údaje  aktuálně přihlášeného uživatele.

Index streamu F	Data
000000...999999	Identy uživatelů
100000...199999	Uid uživatelů
200000...299999	Login jména uživatelů
300000...399999	Celá jména uživatelů.

Příklad:

procedure Uzivatele
    dim F               : File;
    dim Idx             : Longint;
    dim UserId          : Longint;
    dim UserUid         : String;
    dim UserName        : String;
    dim UserFullName    : String;
    SRewrite(F, "", true);
    GetAllUsersId(F);
    if(_SFirst(F, Idx))then
        repeat
            UserId       := _SGet(F, Idx + 000000);
            UserUid      := _SGet(F, Idx + 100000);
            UserName     := _SGet(F, Idx + 200000);
            UserFullName := _SGet(F, Idx + 300000);
            Trace(UserId, "  ", UserUid, "  ", UserName, "  ", UserFullName);
            Trace(UserId, "  ",_GetActUser(AU_PRIHL_JMENO, UserId),"  ",_AppRights(AR_PAM5_CSSZ_PVPOJ_UPR, 0, UserId));
        until _SNext(F, Idx) = false or Idx > 100000;
    endif
    SClose(F);
endproc

Podívejte se na:  System