请教:如何取的ODBC配置中的系统DNS名称呢?

Question

请教:如何通过程序(动态)取的ODBC配置中的系统DNS名称呢?   谢谢大家指点....

Answer 1

var RegODBC:TRegistry;
begin
  RegODBC:=TRegistry.create;     //访问注册表
  RegODBC.RootKey:=HKEY_CURRENT_USER;
  RegODBC.OpenKey('\SOFTWARE\ODBC\ODBC.INI',True);
  RegODBC.OpenKey('\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources',True);
  RegODBC.GetValueNames(ComboBox1.Items);

Answer 2

怎么不认类型TRegistry 呢?  说没定义,是不是我要在uses中加什么东西才行呢?

Answer 3

问题解决,是在uses中加Registry就可以了;
    不过上面好象取的是:ODBC的名称,不是DNS名称呀!

Answer 4

HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI

Answer 5

RegODBC:=TRegistry.create;     //访问注册表
  RegODBC.RootKey:=HKEY_CURRENT_USER;
  RegODBC.OpenKey('\HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI',True);
  RegODBC.OpenKey('\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources',True);
  RegODBC.GetValueNames(ComboBox1.Items);
楼上的,我这样加还是不行,一样的结果呀.

Answer 6

你就不会自己看看代码吗?
  RegODBC:=TRegistry.create;     //访问注册表
  RegODBC.RootKey:=HKEY_LOCAL_MACHINE;
  RegODBC.OpenKey('\SOFTWARE\ODBC\ODBC.INI',True);
  RegODBC.GetValueNames(ComboBox1.Items);

Answer 7

是系统DNS名称,不是用户DNS名称!

Answer 8

看http://www2.ccw.com.cn/tips/9906/060801_05.asp去了