Nombres de las conecciones de ODBC

[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;