请问做安装盘的时候如何创建一个odbc数据源

Question

请问做安装盘的时候如何创建一个odbc数据源
用dephi编写

Answer 1

一个创建FOXPRO的ODBC数据源的单元//动态设置ODBC数据源unit ODBC;interfaceuses  Windows,SysUtils, Forms,Registry;procedure ODBCCreate();implementationprocedure ODBCCreate();var  RegODBC:Tregistry;beginTry  RegODBC:=Tregistry.Create;  RegODBC.RootKey:=HKEY_CURRENT_USER;  RegODBC.OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources',true);  RegODBC.WriteString('MyODBC','Microsoft Visual FoxPro Driver');  RegODBC.CloseKey;  if RegODBC.OpenKey('\Software\ODBC\ODBC.INI\MyODBC',True) then     begin        RegODBC.WriteString('BackgroundFetch','Yes');        RegODBC.WriteString('Collate','Machine');        RegODBC.WriteString('deleted','Yes');        RegODBC.WriteString('Description','');        RegODBC.WriteString('Driver',ExtractFilePath(Application.ExeName)+'vfpodbc.dll');        RegODBC.WriteString('Exclusive','NO');        RegODBC.WriteString('Null','Yes');        RegODBC.WriteString('SetNoCountOn','NO');        RegODBC.WriteString('SourceDB',ExtractFilePath(Application.ExeName));        RegODBC.WriteString('SourceType','DBF');     end  else    begin        application.MessageBox('无法创建ODBC数据源，请确认注册表未写保护','警告',mb_ok);    end;Finally  RegODBC.CloseKey;  RegODBC.free;end;end;end.