const
 ODBC_ADD_DSN = 1; // Добавляем источник данных
 ODBC_CONFIG_DSN = 2; // Конфигурируем (редактируем) источник данных
 ODBC_REMOVE_DSN = 3; // Удаляем источник данных
 ODBC_ADD_SYS_DSN = 4; // Добавляем системный DSN
 ODBC_CONFIG_SYS_DSN = 5; // Конфигурируем системный DSN
 ODBC_REMOVE_SYS_DSN = 6; // удаляем системный DSN

type
 TSQLConfigDataSource = function( hwndParent: HWND; fRequest: WORD;
 lpszDriver: LPCSTR; lpszAttributes: LPCSTR ) : BOOL; stdcall;

procedure Form1.FormCreate(Sender: TObject);
var
 pFn: TSQLConfigDataSource;
 hLib: LongWord;
 strDriver: string;
 strHome: string;
 strAttr: string;
 strFile: string;
 fResult: BOOL;
 ModName: array[0..MAX_PATH] of Char;
 srInfo : TSearchRec;
begin
 Windows.GetModuleFileName( HInstance, ModName, SizeOf(ModName) );
 strHome := ModName;
 while ( strHome[length(strHome)] <> '\' ) do
 Delete( strHome, length(strHome), 1 );
 // Тестовая база данных (Axes = Access)
 strFile := strHome + 'TestData.MDB';
 // загружаем библиотеку (путь по умолчанию)
 hLib := LoadLibrary( 'ODBCCP32' );
 if( hLib <> NULL ) then
 begin
 @pFn := GetProcAddress( hLib, 'SQLConfigDataSource' );
 if( @pFn <> nil ) then
 begin
 // начинаем создание DSN
 strDriver := 'Microsoft Access Driver (*.mdb)';
 strAttr := Format( 'DSN=TestDSN' + #0 + 'DBQ=%s' + #0 +
 'Exclusive=1' + #0 + 'Description=Test Data' + #0 + #0, [strFile] );
 fResult := pFn( 0, ODBC_ADD_SYS_DSN, @strDriver[1], @strAttr[1] );
 if( fResult = false ) then
 ShowMessage( 'Ошибка создания DSN (Datasource) !' );

 // test/create MDB file associated with DSN
 if( FindFirst( strFile, 0, srInfo ) <> 0 ) then
 begin
 strDriver := 'Microsoft Access Driver (*.mdb)';
 strAttr := Format( 'DSN=TestDSN'+#0+ 'DBQ=%s'+#0+ 'Exclusive=1'+#0+
 'Description=Test Data'+#0+ 'CREATE_DB="%s"'#0+#0, [strFile,strFile] );
 fResult := pFn( 0, ODBC_ADD_SYS_DSN, @strDriver[1], @strAttr[1] );
 if( fResult = false ) then
 ShowMessage( 'Ошибка создания MDB (файла базы данных) !' );
 end;
 FindClose( srInfo );
 end;
 FreeLibrary( hLib );
 end
 else
 ShowMessage( 'Невозможно загрузить ODBCCP32.DLL' );
end;