Subversion Repositories DevTools

Function GetDriversODBC
   Push $R1
   StrCpy $0 0
   loop:
                ;lecture de la $0 eme valeur
                EnumRegValue $1 HKLM "SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers" $0               
                StrCmp $1 "" done
        
                ; on concatene | nompilote
                StrCmp $R1 "" +2
                StrCpy $R1 "$R1|"
                StrCpy $R1 "$R1$1"

                ; on passe a l'indice suivant
                IntOp $0 $0 + 1
                Goto loop
        done:
        ;MessageBox MB_OK|MB_ICONQUESTION "ODBC drivers : $R1"
        Exch $R1
FunctionEnd