odbc或bde配置(100分)

请教哪位前辈一个关于在程序中配置ODBC或BDE的问题。
为了不让用户去手动配置，我想在程序中实现自动配置，也看到了一些关于这方面的文章，可是就是不能实现，看哪位前辈有高招，请指教！
我的mail:lezi1779@163.com
谢谢

procedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;

Reg.OpenKey('/Software/odbc/odbc.ini', True);
reg.CreateKey('gong2');
Reg.OpenKey('/Software/odbc/odbc.ini/gong2', True);
Reg.WriteString('DBQ','E:/gong.mdb');
Reg.WriteString('Driver','C:/WINNT/System32/odbcjt32.dll');
reg.WriteInteger('DriverId',25);
Reg.WriteString('FIL','MS Access;');
Reg.WriteString('UID','');
reg.WriteInteger('SafeTransactions',0);

reg.CreateKey('Engines');
Reg.OpenKey('/Software/odbc/odbc.ini/gong2/Engines', True);
reg.CreateKey('Jet');
Reg.OpenKey('/Software/odbc/odbc.ini/gong2/Engines/Jet', True);
Reg.WriteString('ImplicitCommitSync','');
Reg.WriteString('UserCommitSync','Yes');
reg.WriteInteger('MaxBufferSize',2048);
reg.WriteInteger('PageTimeout',5);
reg.WriteInteger('Threads',3);

Reg.OpenKey('/Software/odbc/odbc.ini/ODBC Data Sources', True);
Reg.WriteString('gong2','Microsoft Access Driver (*.mdb)');

Reg.CloseKey ;
reg.Free;

给分！

还不给分？

BDE的自动配置别名参考一下Delphi带的DEMO中的DB/MastAPP

Delphi带的DEMO中的DB/MastAPP

以配置ODBC为SQL为例;
1。驱动程序已经存在。那么就只添加一项：
[HKEY_CURRENT_USER/Software/ODBC/ODBC.INI/DB_C_Prodtech]
"Driver"="C://WINNT//System32//sqlsrv32.dll"
"Server"="aaa"
"Database"="aaa"
"LastUser"="aaa"
2.驱动程序不存在。还有添加下面两项：

[HKEY_LOCAL_MACHINE/SOFTWARE/ODBC/ODBCINST.INI/SQL Server]
"UsageCount"=dword:00000005
"Driver"="C://WINNT//System32//sqlsrv32.dll"
"Setup"="C://WINNT//System32//sqlsrv32.dll"
"SQLLevel"="1"
"FileUsage"="0"
"DriverODBCVer"="02.50"
"ConnectFunctions"="YYY"
"APILevel"="2"
"CPTimeout"="60"

[HKEY_LOCAL_MACHINE/SOFTWARE/ODBC/ODBCINST.INI/ODBC Drivers]
"SQL Server"="Installed"

给分吧！我可是用猫上网的呀！

你看用注册表如何？（注册 ODBC）
http://www.delphibbs.com/keylife/iblog_show.asp?xid=4463

其实就是一个问题，把需要的文件拷贝到相应的目录，
然后写相关注册表，我花了两天的时间弄明白了odbc要写那些注册表，
bde要写那些注册表，要相关注册表一写就Ok了。

为什么用odbc和bde呢，用ado吧