Код:
Спасибо вам за ранее оказанную помощь в написание данного кода.
Подскажите, пожалуйста, как сделать CheckBox активным в самодельном окне?
И как сделать, чтобы запоминался выбор пользователя?
Пример кода:
;-Создание собственной страницы инсталлятора (страница "Ярлыки и автозагрузка"), начало функций
Var Dialog
Var CheckBoxSM
Var CheckBoxD
Var CheckBoxQL
Var CheckBoxA
Var GroupBox1
Var GroupBox2
Function fnCustomInit1
!insertmacro MUI_HEADER_TEXT "Выбирите допольнительные задачи" "Какие дополнительные задачи необходимо выполнить?"
nsDialogs::Create 1018
Pop $Dialog
${NSD_CreateGroupBox} 0 5% 100% 50% "Ярлыки программы:"
Pop $GroupBox1
${NSD_CreateCheckBox} 10 18u 70% 10% "В меню Пуск"
Pop $CheckBoxSM
${NSD_CreateCheckBox} 10 30u 70% 10% "На рабочем столе"
Pop $CheckBoxD
${NSD_CreateCheckBox} 10 42u 70% 10% "В панели быстрого запуска"
Pop $CheckBoxQL
${NSD_CreateGroupBox} 0 -25% 100% 25% "Запуск программы вместе с системой:"
Pop $GroupBox2
${NSD_CreateCheckBox} 10 -22u 70% 10% "Добавить программу в автозапуск"
Pop $CheckBoxA
nsDialogs::Show
FunctionEnd
Function fnCustomDestroy1
${NSD_GetState} $CheckBoxSM $R0
StrCmp $R0 1 0 SkipSM
CreateDirectory "$SMPROGRAMS\AudioGrabber"
CreateShortCut "$SMPROGRAMS\AudioGrabber\Help.lnk" "$INSTDIR\AudioGrabber.hlp" "" "" "" "" "" "Помощь!!!"
CreateShortCut "$SMPROGRAMS\AudioGrabber\AudioGrabber.lnk" "$INSTDIR\AudioGrabber.exe" "" "" "" "" "" "AudioGrabber 1.83.0.1"
CreateShortCut "$SMPROGRAMS\AudioGrabber\Website.lnk" "$INSTDIR\${PRODUCT_NAME}.url" "" "" "" "" "" "Посетить сайт автора -> AudioGrabber"
CreateShortCut "$SMPROGRAMS\AudioGrabber\Uninstall.lnk" "$INSTDIR\Uninstall.exe" "" "" "" "" "" "Удалить -> AudioGrabber с Вашей системы"
SkipSM:
${NSD_GetState} $CheckBoxD $R0
StrCmp $R0 1 0 SkipD
CreateShortCut "$DESKTOP\AudioGrabber.lnk" "$INSTDIR\AudioGrabber.exe" "" "" "" "" "" "AudioGrabber 1.83.0.1"
SkipD:
${NSD_GetState} $CheckBoxQL $R0
StrCmp $R0 1 0 SkipQL
CreateShortCut "$QUICKLAUNCH\AudioGrabber.lnk" "$INSTDIR\AudioGrabber.exe" "" "" "" "" "" "AudioGrabber 1.83.0.1"
SkipQL:
${NSD_GetState} $CheckBoxA $R0
StrCmp $R0 1 0 SkipA
WriteRegStr HKEY_LOCAL_MACHINE "Software\Microsoft\Windows\CurrentVersion\Run" "AudioGrabber" "$INSTDIR\AudioGrabber.exe"
SkipA:
FunctionEnd
;-Конец функций
