Extract the ODBC System Data Sources

Uses
Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
n : 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);
ListBox1.Clear;
for
n := 0 to List.Count-1 do
ListBox1.Items.Add(List.Strings[n]);
Reg.CloseKey;
finally
Reg.Free;
end;
end