La lista de usuarios de Paradox

Si quiere obtener la lista de usuarios que están utilizando Paradox en su red, utilice la función DbiOpenUserList, que abre un cursor virtual con registros del tipo USERDesc. Recuerde incluir las unidades BDE y DBTables, y que el BDE debe estar inicializado para que esta función pueda ejecutarse:

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;