如何用程序实现动态配置SQL Server 2000 ODBC数据源驱动程序、数据库，和表

Question

我在网上看过一个用BCB写的动态配置SQL Server 2000 ODBC数据源驱动程序，创建数据库，表的程序。
这样就节省了用户动手建SQL Server 2000 ODBC数据源驱动程序，数据库的麻烦。用Delphi怎样做这个程序？？？？？

Answer 1

procedure TMainFrm.RegODBC;
var wReg: TRegistry;
    tmpdbPath: string;
    SysPath: array [0..255] of char;
begin
  getsystemdirectory(SysPath,255);
  {getsystemdirectory函数能取得Windows系统目录（System目录）的完整路径名}  wreg:=tregistry.Create;
  wreg.RootKey:=hkey_users;
  if wreg.OpenKey('S-1-5-21-776561741-789336058-1343024091-500\Software\odbc\odbc.ini\ExamSys',
                  true) then
  begin
     wreg.WriteString('Database','ExamSys');
     wreg.WriteString('Description','考试系统');
     wreg.WriteString('Driver',SysPath+'SQLSRV32.dll');
     wreg.WriteString('Server','SPEEDZY');  //SQLSERVER服务器名
     wreg.WriteString('Trusted_Connection','Yes');
  end
  else
  begin
    application.MessageBox('ODBC初始化错误，本程序即将关闭。'+#13#10+
    '关闭后请先检查ODBC是否有错误或未安装，先排除错误或安装后再运行本程序。',
                           '错误', mb_ok+mb_iconerror);
    application.Terminate ;
  end;
  wreg.CloseKey;  if wreg.OpenKey('S-1-5-21-776561741-789336058-1343024091-500\Software\odbc\odbc.ini\ODBC Data Sources',
                  false) then
    wreg.WriteString('ExamSys','SQL Server')
  else
  begin
    application.MessageBox('ODBC初始化错误，本程序即将关闭。'+#13#10+
    '关闭后请先检查ODBC是否有错误或未安装，先排除错误或安装后再运行本程序。',
                           '错误', mb_ok+mb_iconerror);
    application.Terminate ;
  end;
  wreg.CloseKey;        //
end;