Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2551 dpurdie 1 
Function GetDriversODBC
2 
   Push $R1
3 
   StrCpy $0 0
4 
   loop:
5 
		;lecture de la $0 eme valeur
6 
		EnumRegValue $1 HKLM "SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers" $0
7 
		StrCmp $1 "" done
8 
 
9 
		; on concatene | nompilote
10 
		StrCmp $R1 "" +2
11 
		StrCpy $R1 "$R1|"
12 
		StrCpy $R1 "$R1$1"
13 
 
14 
		; on passe a l'indice suivant
15 
		IntOp $0 $0 + 1
16 
		Goto loop
17 
	done:
18 
	;MessageBox MB_OK|MB_ICONQUESTION "ODBC drivers : $R1"
19 
	Exch $R1
20 
FunctionEnd