怎样在程序运行创建ODBC别名，谢谢！！

Question

写注册表太过时了吧，用odbc api，下面是在odbc中添加一个名为trydb的access库
void __fastcall TForm1::Button1Click(TObject *Sender)
{
/*******工程必须包含odbcinst.h文件以及由odbccp32.dll产生的lib文件。
lib方法如下： implib odbccp32.lib odbccp32.dll*********/
//第一参数为NULL将不显示对话框 
SQLConfigDataSource(NULL,ODBC_ADD_DSN,
  "Microsoft Access Driver (*.mdb)\0",
  "DSN=TryDB\0DBQ=c:\\temp\\db1.mdb\0");
  ShowMessage("配置成功");