Saber numero de usuarios a un alias

[oscjae]

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.

[[Lepe]]

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;

Empezado por ayuda delphi

function DbiOpenUserList (var hUsers: hDBICur): DBIResult stdcall;

Description

DbiOpenUserList creates a table containing a list of users sharing the same network file.

Parameters

phUsers Type: phDBICur (Output)
Pointer to the cursor handle.

Usage

DbiOpenUserList is supported for Paradox only.

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

Un saludo