sp; ODBC_REMOVE_DSN     = 3;
  ODBC_ADD_SYS_DSN    = 4;
  ODBC_CONFIG_SYS_DSN = 5;
  ODBC_REMOVE_SYS_DSN = 6;
  
在Form中放入一个Button,在其事件中写
procedure TForm1.Button1Click(Sender: TObject);
begin
SQLConfigDataSource(
     0,
     ODBC_ADD_SYS_DSN,
     ''Microsoft Access Driver (*.mdb)'',
     ''DSN=MyAccessDB;DBQ=C:\MyDB\MyDB.MDB;DefaultDir=C:\MyDB;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;Description=我的数据库''
  );
end;

单击Button1后
再打开控制面板的ODBC设置程序,可看到其中已加入名为MyAccessDB的DSN

你也可以在系统注册表中看到新加入了HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\MyAccessDB键,其它存放着函数中指定的参数.

若改为
procedure TForm1.Button1Click(Sender: TObject);
begin
SQLConfigDataSource(
     Handle,
     ODBC_ADD_SYS_DSN,
     ''Microsoft Access Driver (*.mdb)'',
     ''DSN=MyAccessDB;DBQ=C:\MyDB\MyDB.MDB;DefaultDir=C:\MyDB;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;Description=我的数据库''
  );
end;