第一篇博客:Delphi中修改ODBC数据源

小舅子报名学车,要参加笔试,非要给他弄个考试模拟程序,从昨天下午开始研究别人的程序,终于把MDB中的数据折腾出来了,稍微改了下以前的程序,就算搞定了.突然想起他不会配置ODBC数据源等操作,而我的程序是用Delphi写的,是通过ODBC访问的ACCESS数据库,看来只有在程序里添加这个功能了.在网上搜了一下,知道了数据源的配置实际上就是注册表的修改,那就很简单了;找了个例子参考了一下,中间还折腾了好一会总算把注册表修改及删除操作弄清楚了.
添加数据源ks_access:
  registerTemp := TRegistry.Create; //建立一个Registry实例
  with registerTemp do
  begin
     RootKey:=HKEY_CURRENT_USER;//设置根键值为HKEY_CURRENT_USER
    if not OpenKey('Software/ODBC/ODBC.INI/ks_access',False) then //第二个参数要注意为False
    begin
      if OpenKey('Software/ODBC/ODBC.INI/ODBC Data Sources',True) then
      begin //注册一个DSN名称
        WriteString( 'ks_access', 'Microsoft Access Driver (*.mdb)' );
      end
      else
      begin//创建键值失败
        ShowMessage('增加ODBC数据源失败');
        exit;
      end;
      CloseKey;
      if OpenKey('Software/ODBC/ODBC.INI/ks_access',True) then
      begin