| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 
 | bool CreateAliasODBC( AnsiString aAliasName, AnsiString aFilenameMDB )
{
  TRegistry *reg = new TRegistry() ;
  reg->RootKey = HKEY_CURRENT_USER ;
 
  if( !reg->OpenKey( "\\Software\\ODBC\\ODBC.INI\\ODBC Data Sources",false ) )
  {
 
     return( false ) ;
 
  }
  reg->WriteString( aAliasName, "Microsoft Access dBASE Driver (*.dbf, *.ndx, *.mdx)" ) ;
 
  if( !reg->OpenKey("\\Software\\ODBC\\ODBC.INI\\" +aAliasName,true) )
  {
 
    return( false );
 
  }
  reg->WriteString( "DefaultDir", aFilenameMDB ) ;
  reg->WriteString( "Driver", "C:\\PROGRA~1\\FICHIE~1\\MICROS~1\\OFFICE12\\ACEODBC.DLL" ) ;
  reg->WriteInteger( "DriverId", 25 ) ;
  reg->WriteString( "FIL", "dBASE 5.0" ) ;
  reg->WriteString( "UID", "" ) ;
  reg->WriteInteger( "SafeTransactions", 0 ) ;
  delete reg ;
  return( true );
}
////////////
CreateAliasODBC( "alias",Chemin) ; | 
Partager