回帖：/>

WriteIniStr "$INSTDIR\${PRODUCT_NAME}.url" "InternetShortcut" "URL" "${PRODUCT_WEB_SITE}"


CreateDirectory "$SMPROGRAMS\FLY社区 Windows 主题资源包"


CreateShortCut "$SMPROGRAMS\FLY社区 Windows 主题资源包\Website.lnk" "$INSTDIR\${PRODUCT_NAME}.url"


CreateShortCut "$SMPROGRAMS\FLY社区 Windows 主题资源包\Uninstall.lnk" "$INSTDIR\uninst.exe"


SectionEnd





Section -Post


WriteUninstaller "$INSTDIR\uninst.exe"


WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)"


WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\uninst.exe"


WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}"


WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "URLInfoAbout" "${PRODUCT_WEB_SITE}"


WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"


SectionEnd





#-- 根据 NSIS 脚本编辑规则，所有 Function 区段必须放置在 Section 区段之后编写，以避免安装程序出现未可预知的问题。--#





; 区段组件描述


!insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN


!insertmacro MUI_DESCRIPTION_TEXT ${SEC01} "Deepinpl（蓝色透明主题）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC02} "DzVista（Windows Vista绿色主题）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC03} "LE 5.1（最新LE系列主题）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC04} "MV（Windows Vista银色主题）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC05} "VistaLE2.0（Windows Vista LE2.0颜色主题）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC06} "Aero（LONGHORN 白色主题）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC07} "Aqua（酷凉夏日 主题）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC08} "Longhorn（Longhorn 纯白主题）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC09} "MPlayer10（MPlayer10播放器主题）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC10} "白色苹果（白色苹果主题）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC11} "Royale（Royale蓝色主题系列）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC12} "MSN（MSN主题）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC13} "Dogmax（Dogmax XP主题）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC14} "Element（XP加强版主题）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC15} "Jaguar Aqua（苹果最新白色主题）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC16} "PixOS（PixOS主题）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC17} "（Royal 加强版主题）"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC18} "这个一定要安装，否则将失去效果！！！！！！"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC19} "主题所支持的鼠标，推荐安装，否则也将失去效果。"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC20} "N张漂亮的桌面壁纸。"


!insertmacro MUI_DESCRIPTION_TEXT ${SEC21} "N张漂亮的用户头像。"


!insertmacro MUI_FUNCTION_DESCRIPTION_END





Function .onInit


InitPluginsDir


File "/oname=$PLUGINSDIR\bgm_127308.mid" "G:\新建文件夹 (4)\127308.mid"


; 打开音乐文件


System::Call "winmm.dll::mciSendString(t 'OPEN $PLUGINSDIR\bgm_127308.mid TYPE SEQUENCER ALIAS BGMUSIC', t .r0, i 130, i 0)"


; 开始播放音乐文件


System::Call "winmm.dll::mciSendString(t 'PLAY BGMUSIC NOTIFY', t .r0, i 130, i 0)"


FunctionEnd





Function .onGUIEnd


; 停止播放音乐文件


System::Call "winmm.dll::mciSendString(t 'STOP BGMUSIC',t .r0,i 130,i 0)"


; 关闭音乐文件


System::Call "winmm.dll::mciSendString(t 'CLOSE BGMUSIC',t .r0,i 130,i 0)"


FunctionEnd





/******************************


*以下是安装程序的卸载部分*


******************************/





Section Uninstall


Delete "$INSTDIR\${PRODUCT_NAME}.url"


Delete "$INSTDIR\uninst.exe"


Delete "$WINDIR\Resources\Themes\Readme.txt\Readme.txt"


Delete "C:\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\"


Delete "$WINDIR\Web\Wallpaper\Royale.jpeg"


Delete "$WINDIR\Web\Wallpaper\30.jpg"


Delete "$WINDIR\Web\Wallpaper\29.jpg"


Delete "$WINDIR\Web\Wallpaper\28.jpg"


Delete "$WINDIR\Web\Wallpaper\27.jpg"


Delete "$WINDIR\Web\Wallpaper\26.jpg"


Delete "$WINDIR\Web\Wallpaper\25.jpg"


Delete "$WINDIR\Web\Wallpaper\24.jpg"


Delete "$WINDIR\Web\Wallpaper\23.jpg"


Delete "$WINDIR\Web\Wallpaper\22.jpg"


Delete "$WINDIR\Web\Wallpaper\21.jpg"


Delete "$WINDIR\Web\Wallpaper\20.jpg"


Delete "$WINDIR\Web\Wallpaper\19.jpg"

霸王硬上弓回帖于2007-06-10 18:47