Saber numero de usuarios a un alias
 

Wenas a to2, a ver si podeis resolverme la duda.

Me gustaria saber cual es el numero de usuarios que hya conectados a un alias, pero no al BDE, especificamente a una alias, a una base de datos concreta que yo le diga, ya sea de forma local, o usuarios que esten en red, la base de datos que uso es Paradox

Gracias.

Código Delphi [-]
function GetUsers():Integer;
var
  UserList: TStringlist;
  TmpCursor: hDbiCur;
  rslt: dbiResult;
  UsrDesc: USERDesc;
begin
  Result:=0;
  Check(DbiOpenUserList(TmpCursor));
  UserList := TStringList.Create;
  try
    UserList.Clear;
    repeat
      Rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @UsrDesc, nil);
      if Rslt <> DBIERR_EOF then
        UserList.Add(UsrDesc.szUserName);
    until Rslt <> DBIERR_NONE;
    Result := UserList.Count;
  finally
    Check(DbiCloseCursor(TmpCursor));
    FreeAndNil(UserList);
  end;
end;

Si usan el mismo .NET se supone que usan el mismo alias.

Un saludo