[kotkovets]

wolkow70, Может так логичнее будет...

читать дальше »

Код:

Section /o "Хранить настройки программы в INI файле" INI
${GetSecWriteSucces} INI
${If} $SUCCES_SECTION = 1
    ${If} ${FileExists} "$EXEDIR\PotPlayerMini.ini"
       ${If} ${AtLeastWinVista}
          ExpandEnvStrings $R9 "%USERNAME%" ; копируем в $R9 имя пользователя
          MessageBox MB_OK 'Файл настроек найден, он будет скопирован в папку учётной записи пользователя: "$R9"' /SD IDOK
          SetShellVarContext current 
          CreateDirectory "$APPDATA\PotPlayerMini"
          CopyFiles /silent "$EXEDIR\PotPlayerMini.ini" "$APPDATA\PotPlayerMini\PotPlayerMini.ini"
       ${Else}
          MessageBox MB_OK "Файл настроек найден, он будет скопирован в директорию установки" /SD IDOK
          CopyFiles /silent "$EXEDIR\PotPlayerMini.ini" "$INSTDIR\PotPlayerMini.ini"
       ${EndIf}
    ${Else}
       MessageBox MB_OK "Файла настроек нет, он будет создан в минимальной конфигурации" /SD IDOK
       ${If} ${AtLeastWinVista}
          SetShellVarContext current
          SetOutPath "$APPDATA\PotPlayerMini"
       ${Else}
          SetOutPath "$INSTDIR"
       ${EndIf}
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "CheckAutoUpdate" "0"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "DVDAudioLang" "1049"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "DVDCaptionLang" "1049"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "DVDMenuLang" "1049"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "IntDXVAMPEG1" "0"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "IntDXVAMPEG2" "0"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "IntDXVAUseMode" "2"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "IntDXVAWMV3" "0"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "LastConfigPage" "382"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "LastLogoName" "PotPlayer.png"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "LastPlayListName" "PotPlayerMini.dpl"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "LastSkinXmlName" "VideoSkin.xml"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "LastSkinName" ""
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "MouseLeftDClick" "1"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "MouseLeftSClick" "4"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "MouseWheelDown" "19"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "MouseWheelUp" "18"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "PlaybackMode" "1"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "RememberPosition" "1"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "UserIDList" ""
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "VisualMajor" "1"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "VisualUse" "1"
       WriteINIStr "$OUTDIR\PotPlayerMini.ini" "Settings" "Win7WorkTool" "1"
    ${EndIf}
${EndIf}
SectionEnd