1 2 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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
| Function .onInit
;----------- Exctraction du fichier ini ------------
!insertmacro MUI_INSTALLOPTIONS_EXTRACT "ChoixLecteur2.ini"
!insertmacro MUI_INSTALLOPTIONS_EXTRACT "ListeLecteur.ini"
FunctionEnd
Function AfficherListeLecteurM ;Function name defined with Page command
!insertmacro MUI_INSTALLOPTIONS_WRITE "ChoixLecteur2.ini" "Field 1" "ListItems" $list
!insertmacro MUI_INSTALLOPTIONS_DISPLAY "ChoixLecteur2.ini"
FunctionEnd
Function LeaveCustom1
;Actions en fonction des bouttons AC et SC
;!insertmacro MUI_INSTALLOPTIONS_READ $R6 "InstallOptionsFile.ini" "Field 1" "HWND"
!insertmacro MUI_INSTALLOPTIONS_READ $0 "ChoixLecteur2.ini" "Settings" "State"
StrCmp $0 0 Done
StrCmp $0 2 AC
StrCmp $0 3 SC
Abort
AC:
!insertmacro MUI_INSTALLOPTIONS_READ $l "ChoixLecteur2.ini" "Field 1" "state"
StrCpy $lecteur "$lecteur|$l"
!insertmacro MUI_INSTALLOPTIONS_WRITE "ChoixLecteur2.ini" "Field 4" "ListItems" "$lecteur"
!insertmacro MUI_INSTALLOPTIONS_READ $0 "ChoixLecteur2.ini" "Field 1" "State"
/* !insertmacro MUI_INSTALLOPTIONS_READ $1 "ChoixLecteur2.ini" "Field 4" "HWND"
EnableWindow $1 $0
!insertmacro MUI_INSTALLOPTIONS_READ $1 "ChoixLecteur2.ini" "Field 4" "HWND2"
EnableWindow $1 $0
*/ ; ==> les EnableWindow fonctionne en live( il desactive les les lignes du listbox)
;!insertmacro MUI_INSTALLOPTIONS_SHOW
;WriteINIStr $EXEDIR"\ChoixLecteur2.ini" "Field 4" "ListItems" "$lecteur"
Abort
SC:
MessageBox MB_OK|MB_ICONSTOP "Erreur InstallOptions :$\r$\n$0"
Abort
Done:
FunctionEnd |
Partager