Retrieving list of ODBC Data Sources from Delphi

[Guest_imported]

Hi

Is it possible to retrieve the list of ODBC user Data Sources from Delphi ?

 

[earlrainer]

Hi ,

here is some code..hope it helps

procedure TForm1.GS;
var
i : Integer;
List : TStringList;
Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.LazyWrite := false;
Reg.OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources', false);
List := TStringList.Create;
Reg.GetValueNames(List);
combobox1.Items.Clear;
for i := 0 to List.Count-1 do
begin
combobox1.Items.Add(List.Strings);

end;

Reg.CloseKey;
finally
Reg.Free;
end;

list.free;
end;