Página principal
Artículos y trucos
Catálogo de productos
Ejemplos y descargas
Mis libros
Cursos de formación
Investigación y desarrollo
Libros recomendados
Mis páginas favoritas
Acerca del autor
 
En colaboración con Amazon
 
Intuitive Sight

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;