Ver Mensaje Individual
  #1  
Antiguo 29-06-2006
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Cómo obtener lista de Usuarios 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:
Código Delphi [-]
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;
Responder Con Cita