{*******************************************************
在本程序中,将创建一个odbc系统数据源(dsn),
数据源名称:myaccess 数据源描述:我的新数据源
数据库类型:access97
对应数据库:c:\inetpub\wwwroot\test.mdb
*******************************************************}
{ 注意应在uses语句中包含registry }
procedure tform1.button1click(sender: tobject);
var
registertemp : tregistry;
bdata : array[ 0..0 ] of byte;
begin
registertemp := tregistry.create; //建立一个registry实例
with registertemp do
begin
rootkey:=hkey_local_machine;//设置根键值为hkey_local_machine
//找到software\odbc\odbc.ini\odbc data sources
if openkey('software\odbc\odbc.ini\odbc data sources',true) then
begin //注册一个dsn名称
writestring( 'myaccess', 'microsoft access driver (*.mdb)' );
end
else
begin//创建键值失败
memo1.lines.add('增加odbc数据源失败');
exit;
end;
closekey;