怎样实现在安装程序过程中，自动添加一个ODBC的数据源？

Question

同上

Answer 1

//=====从Ini文件中获取数据库连接参数
  sUser:=getInis(aIniFile,'Database Connection','User','sa');
  sPassword:=getInis(aIniFile,'Database Connection','Password','sa');
  sDbServer:=getInis(aIniFile,'Database Connection','DatabaseServer','');
  //=====修改注册表
  if ifIp(sDbServer) then sKeyValue:='DBMSSOCN,'+sDbServer+',1433'
  else sKeyValue:='DBMSSOCN,'+sDbServer+',1433';  //管道加密，设定天数
  RegInfo := TRegistry.Create;
  RegInfo.RootKey:=HKEY_LOCAL_MACHINE; //存放在此根下
  if not regInfo.KeyExists(HKEY) then//键值不存在
  Begin
    regInfo.OpenKey(HKEY,true);
    regInfo.WriteString(sDbServer,sKeyValue);
  End else
  Begin
    regInfo.OpenKey(HKEY,false);
    if not regInfo.ValueExists(sDbServer) then regInfo.WriteString(sDbServer,sKeyValue);
  End;
  regInfo.Free;

Answer 2

很简单,INSTALLSHIELD EXPRESS FOR DELPHI 7 打包就可以

Answer 3

最好的办法就是：你开发过程中用文件DNS配置ODBC这样就不能那么麻烦发布时还要动态创建一个ODBC配置！