微软官方主题

admin

1. 
   
2. ; 该脚本使用 HM VNISEdit 脚本编辑器向导产生
   
3. ; 脚本编译：非正常注册
   
4. !include "LogicLib.nsh"
   
5. ; 安装程序初始定义常量
   
6. !define PRODUCT_NAME "微软官方主题"
   
7. !define PRODUCT_VERSION "年韵2006"
   
8. !define PRODUCT_PUBLISHER "Microsoft"
   
9. !define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}"
   
10. !define PRODUCT_UNINST_ROOT_KEY "HKLM"
    
11. !define PRODUCT_STARTMENU_REGVAL "NSIS:StartMenuDir"
    
12. SetCompressor lzma
    
13. InstType "完全安装"
    
14. ; ------ MUI 现代界面定义 (1.67 版本以上兼容) ------
    
15. !include "MUI.nsh"
    
16. ; MUI 预定义常量
    
17. !define MUI_ABORTWARNING
    
18. !define MUI_ICON "0.ico"
    
19. !define MUI_UNICON "3.ico"
    
20. !define MUI_WELCOMEFINISHPAGE_BITMAP "1.bmp"
    
21. ; 语言选择窗口常量设置
    
22. !define MUI_LANGDLL_REGISTRY_ROOT "${PRODUCT_UNINST_ROOT_KEY}"
    
23. !define MUI_LANGDLL_REGISTRY_KEY "${PRODUCT_UNINST_KEY}"
    
24. !define MUI_LANGDLL_REGISTRY_VALUENAME "NSIS:Language"
    
25. ; 欢迎页面
    
26. !insertmacro MUI_PAGE_WELCOME
    
27. ; 组件选择页面
    
28. !insertmacro MUI_PAGE_COMPONENTS
    
29. ; 安装目录选择页面
    
30. !insertmacro MUI_PAGE_DIRECTORY
    
31. ; 开始菜单设置页面
    
32. var ICONS_GROUP
    
33. !define MUI_STARTMENUPAGE_NODISABLE
    
34. !define MUI_STARTMENUPAGE_DEFAULTFOLDER "微软增值软件"
    
35. !define MUI_STARTMENUPAGE_REGISTRY_ROOT "${PRODUCT_UNINST_ROOT_KEY}"
    
36. !define MUI_STARTMENUPAGE_REGISTRY_KEY "${PRODUCT_UNINST_KEY}"
    
37. !define MUI_STARTMENUPAGE_REGISTRY_VALUENAME "${PRODUCT_STARTMENU_REGVAL}"
    
38. !insertmacro MUI_PAGE_STARTMENU Application $ICONS_GROUP
    
39. ; 安装过程页面
    
40. !insertmacro MUI_PAGE_INSTFILES
    
41. ; 安装完成页面
    
42. !define MUI_FINISHPAGE_SHOWREADME "readme.txt"
    
43. !insertmacro MUI_PAGE_FINISH
    
44. ; 安装卸载过程页面
    
45. !insertmacro MUI_UNPAGE_INSTFILES
    
46. ; 安装界面包含的语言设置
    
47. !insertmacro MUI_LANGUAGE "SimpChinese"
    
48. !insertmacro MUI_LANGUAGE "TradChinese"
    
49. ; 安装预释放文件
    
50. !insertmacro MUI_RESERVEFILE_LANGDLL
    
51. !insertmacro MUI_RESERVEFILE_INSTALLOPTIONS
    
52. ; ------ MUI 现代界面定义结束 ------
    
53. ReserveFile "${NSISDIR}\Plugins\advsplash.dll"
    
54. ReserveFile "OEMLOGO.bmp"
    
55. ReserveFile "Open.wav"
    
56. Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"
    
57. OutFile "主题包.EXE"
    
58. InstallDir "$PROGRAMFILES\CNP2006"
    
59. ShowInstDetails show
    
60. ShowUnInstDetails show
    
61. BrandingText "失去记忆的风 QQ:82695161 特别制作,谢谢您的支持!"
    
62. ; 激活安装日志记录，该日志文件将会作为卸载文件的依据(注意，本区段必须放置在所有区段之前)
    
63. 
    
64. SectionGroup "微软正版增值软件" SecInterfaces
    
65. Section "年韵 2006" SEC01
    
66.   SectionIn 1
    
67.   SetOutPath "$RESOURCES\Themes"
    
68.   SetOverwrite on
    
69.   File /r "Themes\*.*"
    
70.   SetOutPath "$RESOURCES\Themes\Resources"
    
71.   File /r "Themes\Resources\*.*"
    
72.   SetOutPath "$RESOURCES\Themes\Luna\Shell\NormalColor"
    
73.   File /r "Themes\Shell\NormalColor\*.*"
    
74.   SetOutPath "$WINDIR\Web\Wallpaper"
    
75.   File "Themes\Shell\Wallpaper\*.*"
    
76.   SetOutPath "$WINDIR\Cursors"
    
77.   File /r "Themes\Cursors\*.*"
    
78.   SetOutPath "$WINDIR\Media"
    
79.   File /r "Themes\Media\*.*"
    
80.   SetOutPath "$PROGRAMFILES\CNP2006"
    
81.   File /r "Themes\1\*.*"
    
82.   
    
83. SectionEnd
    
84. Section " Date_Time" SEC02
    
85.   SectionIn 1
    
86.   SetOutPath "$PROGRAMFILES\Chinese Date_Time"
    
87.   SetOverwrite ifnewer
    
88.   File /r "Chinese Date_Time\*.*"
    
89. ; 创建开始菜单快捷方式
    
90.   !insertmacro MUI_STARTMENU_WRITE_BEGIN Application
    
91.   CreateDirectory "$SMPROGRAMS\微软增值软件\日历时钟"
    
92.   CreateShortCut "$SMPROGRAMS\微软增值软件\日历时钟\ICalClk.lnk" "$PROGRAMFILES\Chinese Date_Time\ICalClk.exe"
    
93.   !insertmacro MUI_STARTMENU_WRITE_END
    
94. SectionEnd
    
95. Section -AdditionalIcons
    
96.   SetOutPath $INSTDIR
    
97.   !insertmacro MUI_STARTMENU_WRITE_BEGIN Application
    
98.   CreateDirectory "$SMPROGRAMS\微软增值软件"
    
99.   CreateShortCut "$SMPROGRAMS\微软增值软件\卸载日历时钟.lnk" "$INSTDIR\uninst.exe"
    
100.   !insertmacro MUI_STARTMENU_WRITE_END
     
101. SectionEnd
     
102. Section -Post
     
103.   WriteUninstaller "$INSTDIR\uninst.exe"
     
104.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)"
     
105.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\uninst.exe"
     
106.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}"
     
107.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"
     
108. SectionEnd
     
109. #-- 根据 NSIS 脚本编辑规则，所有 Function 区段必须放置在 Section 区段之后编写，以避免安装程序出现未可预知的问题。--#
     
110. ; 区段组件描述
     
111. !insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN
     
112.   !insertmacro MUI_DESCRIPTION_TEXT ${SEC01} "微软官方2006主题."
     
113.   !insertmacro MUI_DESCRIPTION_TEXT ${SEC02} "日历（包括农历和公历）与世界时钟，绿色，可直接删除。"
     
114. !insertmacro MUI_FUNCTION_DESCRIPTION_END
     
115. Function .onInit
     
116.   InitPluginsDir
     
117.   File "/oname=$PLUGINSDIR\Splash_OEMLOGO.bmp" "OEMLOGO.bmp"
     
118.   File "/oname=$PLUGINSDIR\Splash_Open.wav" "Open.wav"
     
119.   ; 使用闪屏插件显示闪屏
     
120.   advsplash::show 1000 500 500 -1 "$PLUGINSDIR\Splash_OEMLOGO"
     
121.   Pop $0 ; $0 返回 '1' 表示用户提前关闭闪屏, 返回 '0' 表示闪屏正常结束, 返回 '-1' 表示闪屏显示出错
     
122.   !insertmacro MUI_LANGDLL_DISPLAY
     
123. FunctionEnd
     
124. SectionGroupEnd
     
125. /******************************
     
126. *  以下是安装程序的卸载部分  *
     
127. ******************************/
     
128. ; 根据安装日志卸载文件的调用宏
     
129. !macro DelFileByLog LogFile
     
130.   ifFileExists `${LogFile}` 0 +4
     
131.     Push `${LogFile}`
     
132.     Call un.DelFileByLog
     
133.     Delete `${LogFile}`
     
134. !macroend
     
135. Section Uninstall
     
136.   !insertmacro MUI_STARTMENU_GETFOLDER "Application" $ICONS_GROUP
     
137.   ; 调用宏只根据安装日志卸载安装程序自己安装过的文件
     
138.   !insertmacro DelFileByLog "$INSTDIR\install.log"
     
139.   ; 清除安装程序创建的且在卸载时可能为空的子目录，对于递归添加的文件目录，请由最内层的子目录开始清除(注意，不要带 /r 参数，否则会失去 DelFileByLog 的意义)
     
140.   RMDir /r "$PROGRAMFILES\CNP2006"
     
141.   RMDir /r "$PROGRAMFILES\Chinese Date_Time"
     
142.   RMDir "$WINDIR\Web\Wallpaper"
     
143.   RMDir "$WINDIR\Media"
     
144.   RMDir "$WINDIR\Cursors"
     
145.   RMDir "$SMPROGRAMS\$ICONS_GROUP"
     
146.   RMDir "$RESOURCES\Themes"
     
147.   RMDir ""
     
148.   RMDir "$INSTDIR"
     
149.   DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}"
     
150.   SetAutoClose true
     
151. SectionEnd
     
152. #-- 根据 NSIS 脚本编辑规则，所有 Function 区段必须放置在 Section 区段之后编写，以避免安装程序出现未可预知的问题。--#
     
153. Function un.onInit
     
154. !insertmacro MUI_UNGETLANGUAGE
     
155.   MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "你确实要完全移除 微软日历时钟，及其所有的组件？" IDYES +2
     
156.   Abort
     
157. FunctionEnd
     
158. Function un.onUninstSuccess
     
159.   HideWindow
     
160.   MessageBox MB_ICONINFORMATION|MB_OK "微软日历时钟 已成功地从你的计算机移除。"
     
161. FunctionEnd
     
162. ; 以下是卸载程序通过安装日志卸载文件的专用函数，请不要随意修改
     
163. Function un.DelFileByLog
     
164.   Exch $R0
     
165.   Push $R1
     
166.   Push $R2
     
167.   Push $R3
     
168.   FileOpen $R0 $R0 r
     
169.   ${Do}
     
170.     FileRead $R0 $R1
     
171.     ${IfThen} $R1 == `` ${|} ${ExitDo} ${|}
     
172.     StrCpy $R1 $R1 -2
     
173.     StrCpy $R2 $R1 11
     
174.     StrCpy $R3 $R1 20
     
175.     ${If} $R2 == "File: wrote"
     
176.     ${OrIf} $R2 == "File: skipp"
     
177.     ${OrIf} $R3 == "CreateShortCut: out:"
     
178.     ${OrIf} $R3 == "created uninstaller:"
     
179.       Push $R1
     
180.       Push `"`
     
181.       Call un.DelFileByLog.StrLoc
     
182.       Pop $R2
     
183.       ${If} $R2 != ""
     
184.         IntOp $R2 $R2 + 1
     
185.         StrCpy $R3 $R1 "" $R2
     
186.         Push $R3
     
187.         Push `"`
     
188.         Call un.DelFileByLog.StrLoc
     
189.         Pop $R2
     
190.         ${If} $R2 != ""
     
191.           StrCpy $R3 $R3 $R2
     
192.           Delete /REBOOTOK $R3
     
193.         ${EndIf}
     
194.       ${EndIf}
     
195.     ${EndIf}
     
196.     StrCpy $R2 $R1 7
     
197.     ${If} $R2 == "Rename:"
     
198.       Push $R1
     
199.       Push "->"
     
200.       Call un.DelFileByLog.StrLoc
     
201.       Pop $R2
     
202.       ${If} $R2 != ""
     
203.         IntOp $R2 $R2 + 2
     
204.         StrCpy $R3 $R1 "" $R2
     
205.         Delete /REBOOTOK $R3
     
206.       ${EndIf}
     
207.     ${EndIf}
     
208.   ${Loop}
     
209.   FileClose $R0
     
210.   Pop $R3
     
211.   Pop $R2
     
212.   Pop $R1
     
213.   Pop $R0
     
214. FunctionEnd
     
215. Function un.DelFileByLog.StrLoc
     
216.   Exch $R0
     
217.   Exch
     
218.   Exch $R1
     
219.   Push $R2
     
220.   Push $R3
     
221.   Push $R4
     
222.   Push $R5
     
223.   StrLen $R2 $R0
     
224.   StrLen $R3 $R1
     
225.   StrCpy $R4 0
     
226.   ${Do}
     
227.     StrCpy $R5 $R1 $R2 $R4
     
228.     ${If} $R5 == $R0
     
229.     ${OrIf} $R4 = $R3
     
230.       ${ExitDo}
     
231.     ${EndIf}
     
232.     IntOp $R4 $R4 + 1
     
233.   ${Loop}
     
234.   ${If} $R4 = $R3
     
235.     StrCpy $R0 ""
     
236.   ${Else}
     
237.     StrCpy $R0 $R4
     
238.   ${EndIf}
     
239.   Pop $R5
     
240.   Pop $R4
     
241.   Pop $R3
     
242.   Pop $R2
     
243.   Pop $R1
     
244.   Exch $R0
     
245. FunctionEnd
     

复制代码