程序采用ADO,数据库用ODBC连接,请问用IS Express Delphi 4.0 Beta如何制作安装包,安装后不用再配置ODBC。
解决方案 »
- listindex out of bounds
- 整形变量的问题
- 怎样建立一个带记录型数据组参数的DLL函数
- 我写的存储过程为何不能在程序中执行?而只能在查询分析器中执行?
- 菜鸟问问题,adoquery的parameters到底怎么用啊,请给个小例子。
- 请问DELPHI网络下的编程,什么书介绍的比较好(要详细)?
- 请教高手,在程序中,网络安全方面的设置怎么设置??
- 怎么创建包????
- 有谁用过dephi的三维动画?有兴趣的可交流一下,[email protected] 来者加分,up一下加2分
- 急用!谁有把dbf->db(paradox)的转换程序,高分捧上!
- 判断一列中是否有要求的值,用什么函数实现比较好?
- 关于使用一个用MFC写的DLL的问题?
procedure TForm1.Button1Click(Sender: TObject);
var
TempReg:TRegistry;
bytearray : array[ 0..0 ] of byte;
begin
TempReg := TRegistry.Create;
with TempReg do
begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then
begin
WriteString( 'myodbc', 'Microsoft Access Driver (*.mdb)' );
end
else
begin
ShowMessage('增加ODBC数据源失败');
exit;
end;
closeKey; begin
if OpenKey('Software\ODBC\ODBC.INI\myodbc',True) then
begin
WriteString( 'DBQ', 'C:\test.mdb' );
WriteString( 'Description','新数据源' );
WriteString( 'Driver', 'C:\WINDOWS\SYSTEM\odbcjt32.dll' );
WriteInteger( 'DriverId', 25 );
WriteString( 'FIL', 'Ms Access;' );
WriteInteger( 'SafeTransaction', 0 );
WriteString( 'UID', 'tom' );
bytearray [0] := 0;
WriteBinaryData( 'Exclusive', bytearray, 1 );
WriteBinaryData( 'ReadOnly', bytearray, 1 );
end
else
begin
showmessage('增加ODBC数据源失败');
exit;
end;
CloseKey;
end; if OpenKey('Software\ODBC\ODBC.INI\myaccess97\Engines\Jet',True) then
begin
WriteString( 'ImplicitCommitSync', 'Yes' );
WriteInteger( 'MaxBufferSize', 512 );
WriteInteger( 'PageTimeout', 20 );
WriteInteger( 'Threads', 5 );
WriteString( 'UserCommitSync', 'Yes' );
end
else
begin
showmessage('增加ODBC数据源失败');
exit;
end;
CloseKey;
showmessage('增加新ODBC数据源成功');
end;
end;