檢查ODBC是否安裝——MY SQL

// // // CheckMyODBCDriver // // ----------------- // // // // Checks installation of the MyODBC driver // // // // Input: // // (none) // // // // Result [Byte]: // // 0: MySQL driver installed // // 1: missing registry values // // 2: missing file myodbc.dll // // // function CheckMyODBCDriver: Byte; var fReg: tRegistry; bDriversValue, bMySQLKey, bMySQLValues: Boolean; sDriver, sSetup: String; begin // checking the registry try fReg := TRegistry.Create; fReg.RootKey := HKEY_LOCAL_MACHINE; // checking key entry /Software/ODBC/ODBCINST.INI/ODBC Drivers fReg.OpenKey( '/Software/ODBC/ODBCINST.INI/ODBC Drivers', True ); bDriversValue := fReg.ValueExists( 'MySQL' ) and ( fReg.ReadString( 'MySQL' ) = 'Installed' ); // checking key entry /Software/ODBC/ODBCINST.INI/MySQL bMySQLKey := fReg.KeyExists( '/Software/ODBC/ODBCINST.INI/MySQL' ); // if exists key entry /Software/ODBC/ODBCINST.INI/MySQL // check also the values if bMySQLKey then begin fReg.OpenKey( '/Software/ODBC/ODBCINST.INI/MySQL', True ); bMySQLValues := fReg.ValueExists( 'APILevel' ) and fReg.ValueExists( 'ConnectFunctions' ) and fReg.ValueExists( 'Driver' ) and fReg.ValueExists( 'DriverODBCVer' ) and fReg.ValueExists( 'FileExtns' ) and fReg.ValueExists( 'FileUsage' ) and fReg.ValueExists( 'Setup' ) and fReg.ValueExists( 'SQLLevel' ); if bMySQLValues then begin sDriver := Trim( fReg.ReadString( 'Driver' ) ); sSetup := Trim( fReg.ReadString( 'Setup' ) ); end; end else bMySQLValues := False; if ( bDriversValue and bMySQLKey and bMySQLValues ) then Result := 0 else Result := 1; fReg.CloseKey; fReg.Free; except Result := 1; fReg.Free; Exit; end; // if registry entries OK => check driver files ... if ( Result = 0 ) then begin if not ( FileExists( sDriver ) and FileExists( sSetup ) ) then Result := 2; end; end; // // // InstallMyODBCDriver // // ------------------- // // // // Installs MyODBC driver // // // // Input: // // sDllLocation - location of the file myodbc.dll [String] // // // // Result [Byte]: // // 0: MyODBC succesfuly installed // // 1: file myodbc.dll does not exist // // 2: error accesing registry // // // function InstallMyODBCDriver( sDllLocation: String ): Byte; var fReg: tRegistry; begin if not FileExists( sDllLocation ) then begin Result := 1; Exit; end; if ( CheckMyODBCDriver = 0 ) then begin Result := 0; end else begin try fReg := TRegistry.Create; fReg.RootKey := HKEY_LOCAL_MACHINE; fReg.OpenKey( '/Software/ODBC/ODBCINST.INI/ODBC Drivers', True ); fReg.WriteString( 'MySQL', 'Installed' ); fReg.CloseKey; fReg.CreateKey( '/Software/ODBC/ODBCINST.INI/MySQL' ); fReg.OpenKey( '/Software/ODBC/ODBCINST.INI/MySQL', True ); fReg.WriteString( 'APILevel', '2' ); fReg.WriteString( 'ConnectFunctions', 'YYN' ); fReg.WriteString( 'Driver', sDllLocation ); fReg.WriteString( 'DriverODBCVer', '02.50' ); fReg.WriteString( 'FileExtns', '*.txt' ); fReg.WriteString( 'FileUsage', '0' ); fReg.WriteString( 'Setup', sDllLocation ); fReg.WriteString( 'SQLLevel', '1' ); fReg.CloseKey; fReg.Free; Result := 0; except fReg.Free; Result := 2; end; end; end;