Nombres de las conecciones de ODBC

[arley_molina]

[b]
Hola necesito listar todas los nombres de las conecciones de ODBC de mi maquina desde delphi en un listbox o cualquier otro componente , no se si hay algun componente que me lo permite hacer no se si el adoquery me lo permite hacer , o sea obtener ese listado,he tratado pero no logro si alguien lo save hacer ,por favor alludeme saludos dephistas a todos[b]

[dec]

Hola,

Por favor, revisa la guía de estilo de estos Foros. Procura dar un título más descriptivo a los Hilos que inicies, y, no escribas "en negrita" todo el texto, que se ve que pensabas hacerlo y no te salió del todo bien. Bienvenido al ClubDelphi.

[paren]

Código Delphi [-]
procedure TfrmMain.getValues( rootKey : HKEY; key : string; displayValues : TStrings );
var
  reg : TRegistry;
  regDataType : TRegDataType;
  listValues : TStringList;
  i : integer;
begin
  reg := nil;
  try
    reg := TRegistry.Create( KEY_QUERY_VALUE );
    reg.RootKey := rootKey;
    if( reg.OpenKeyReadOnly( key ) ) then
    begin
      try
        listValues :=  TStringList.Create;
        reg.GetValueNames( listValues );
        {
        for i := 0 to listValues.Count - 1 do
        begin
          regDataType := reg.GetDataType( listValues[ i ] );
          if( regDataType = rdString ) or ( regDataType = rdExpandString ) then
          begin
            if( reg.ReadString( listValues[ i ] ) = 'INTERSOLV InterBase ODBC Driver (*.gdb)' ) then
            begin
              displayValues.Add( listValues[ i ] );
            end;
          end;
        end;
        }
        displayValues.Assign( listValues );
      finally
        reg.CloseKey;
      end;
    end;
  finally
    reg.Free;
  end;
end;

Lo mandas llamar con

Código Delphi [-]
procedure TfrmMain.Button1Click(Sender: TObject);
begin
  getValues( HKEY_LOCAL_MACHINE, 'SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources', ListBox1.Items );
end;