Para obtener la lista de usuarios que están utilizando Paradox en red, utilizaremos la función DbiOpenUserList, que abre un cursor virtual con registros del tipo USERDesc. Es necesario incluir las unidades BDE y DBTables en el USES, y el BDE debe estar inicializado para que esta función pueda ejecutarse: pondremos un botón y un TMemo en un formulario y en el evento click del botón pondremos lo siguiente:

procedure TForm1.Button1Click(Sender: TObject);
var
  TmpCursor: hDbiCur;
  rslt: dbiResult;
  UsrDesc: USERDesc;
begin
  Memo1.Clear;
  try
    Check(DbiOpenUserList(TmpCursor));
  except
    ShowMessage('Esta aplicación no tiene accesos a bases de datos.');
  end;
  try
    repeat
      Rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @UsrDesc, nil);
      if Rslt <> DBIERR_EOF then
        Memo1.Lines.Add(UsrDesc.szUserName);
    until Rslt <> DBIERR_NONE;
  finally
    Check(DbiCloseCursor(TmpCursor));
  end;
end;

Publicado el: 2003-09-17