有打包BDE的安装软件,如小颖安装制作就有打包BDE的功能,具体我没试过,楼主自己下一个试试。 如有用ODBC可以让程序自动配置,我这有一小段代码,楼主可以参考一下: function MyODBC:Boolean; begin reg:=TRegistry.Create; reg.RootKey:=HKEY_LOCAL_MACHINE; if reg.OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then Reg.WriteString('MydBase','Microsoft dBASE Driver (*.dbf)') else begin showmessage('增加数据源失败'); MYODBC:=False; exit; end; reg.CloseKey; if Reg.OpenKey('Software\ODBC\ODBC.INI\MydBase',True) then begin Reg.WriteString('Driver','D:\WINDOWS\system32\odbcjt32.dll'); Reg.WriteInteger('DriverId',533); Reg.WriteInteger('SafeTransactions',0); Reg.WriteString('UID',''); end else begin showmessage('增加ODBC数据源失败'); MYODBC:=False; exit; end; if Reg.OpenKey('Software\ODBC\ODBC.INI\MydBase\Engines\Xbase',True) then begin Reg.WriteString('ImplicitcommitSync',''); Reg.WriteInteger('Threads',3); Reg.WriteString('UserCommitSync','Yes'); MyODBC:=True; end else begin MYODBC:=False; exit; end; Reg.CloseKey; Reg.Free; end;
如有用ODBC可以让程序自动配置,我这有一小段代码,楼主可以参考一下:
function MyODBC:Boolean;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then
Reg.WriteString('MydBase','Microsoft dBASE Driver (*.dbf)')
else
begin
showmessage('增加数据源失败'); MYODBC:=False; exit;
end;
reg.CloseKey;
if Reg.OpenKey('Software\ODBC\ODBC.INI\MydBase',True) then
begin
Reg.WriteString('Driver','D:\WINDOWS\system32\odbcjt32.dll');
Reg.WriteInteger('DriverId',533);
Reg.WriteInteger('SafeTransactions',0);
Reg.WriteString('UID','');
end
else
begin
showmessage('增加ODBC数据源失败'); MYODBC:=False; exit;
end;
if Reg.OpenKey('Software\ODBC\ODBC.INI\MydBase\Engines\Xbase',True) then
begin
Reg.WriteString('ImplicitcommitSync','');
Reg.WriteInteger('Threads',3);
Reg.WriteString('UserCommitSync','Yes');
MyODBC:=True;
end
else begin MYODBC:=False; exit; end;
Reg.CloseKey;
Reg.Free;
end;