BDE - obter usuarios conectados

procedure GetUsers(UserList: TStrings);

var

  TmpCursor: hDbiCur;

  rslt: dbiResult;

  UsrDesc: USERDesc;

begin

  UserList.Clear;

  Check(DbiOpenUserList(TmpCursor));

  try

    repeat

      Rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @UsrDesc, nil);

      if Rslt <> DBIERR_EOF then UserList.Add(UsrDesc.szUserName);

    until Rslt <> DBIERR_NONE;

  finally

    Check(DbiCloseCursor(TmpCursor));

  end;

end;