有谁知道用Delphi编程获取ODBC数据源？(200分)

用Delphi编程获取ODBC数据源:<br>&nbsp; 请写出源代码。

还是用ADO方便!

用API实现并有源码才给分

procedure TfrmSetDatabase.GetDatabaseInfo(var AList: TStringList);<br>const &nbsp; &nbsp; &nbsp; ODBCINI = '/SOFTWARE/ODBC/ODBC.INI/ODBC Data Sources';<br>var<br>&nbsp; Reg: TRegistry;<br>begin<br>&nbsp; Reg := TRegistry.Create;<br>&nbsp; try<br>&nbsp; &nbsp; Reg.RootKey := HKEY_LOCAL_MACHINE;<br>&nbsp; &nbsp; if Reg.OpenKey(ODBCINI,false) then<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; Reg.GetValueNames(AList);<br>&nbsp; &nbsp; end;<br>&nbsp; finally<br>&nbsp; &nbsp; Reg.Free;<br>&nbsp; end;<br>end;

gz

最好用API函数，区分用户DSN和系统DSN，如有知道者请赐教.

接受答案了.