Inno Setup 主题资源包脚本

Share

1. ; 脚本用 Inno Setup 脚本向导生成。
   
2. 
   
3. ; 查阅文档获取创建 INNO SETUP 脚本文件详细资料!
   
4. 
   
5. [Setup]
   
6. 
   
7. AppName=系统主题资源包 2.20
   
8. 
   
9. AppVerName=【Windows 精选主题】
   
10. 
    
11. VersionInfoVersion=2.20
    
12. 
    
13. AppPublisher=9esu工作室
    
14. 
    
15. AppPublisherURL=http://188168432.qzone.qq.com
    
16. 
    
17. AppSupportURL=http://188168432.qzone.qq.com
    
18. 
    
19. AppUpdatesURL=http://188168432.qzone.qq.com
    
20. 
    
21. InfoBeforeFile=C:SourceReadme.txt
    
22. 
    
23. WizardImageFile =C:SourceWizModernImage.bmp
    
24. 
    
25. WizardSmallImageFile =C:SourceWizModernSmallImage.bmp
    
26. 
    
27. OutputDir=C:\n
    
28. DefaultGroupName=【Windows 精选主题】
    
29. 
    
30. OutputBaseFilename=Setup
    
31. 
    
32. SetupIconFile=c:Sourcesetup.ico
    
33. 
    
34. VersionInfoDescription=【Windows 精选主题】
    
35. 
    
36. VersionInfoCopyright=Copyright (C) 2007 By 9esu
    
37. 
    
38. Compression=lzma
    
39. 
    
40. SolidCompression=yes
    
41. 
    
42. Defaultdirname={pf}系统美化
    
43. 
    
44. TouchDate=2007-11-22
    
45. 
    
46. TouchTime=20:09
    
47. 
    
48. [Languages]
    
49. 
    
50. Name: "chi"; MessagesFile: "compiler:Default.isl"
    
51. 
    
52. [Components]
    
53. 
    
54. ;####################################系统主题###########################################
    
55. 
    
56. Name: themes;          Description:系统主题;          Types: full compact custom;
    
57. 
    
58. ;vista
    
59. 
    
60. Name: themesVista;    Description: Vista系统主题;    Types: full compact custom;
    
61. 
    
62. ;####################################美化资源###########################################
    
63. 
    
64. Name: beautify;        Description:美化资源;          Types: full compact custom;
    
65. 
    
66. Name: beautifysbyj;   Description:鼠标右键背景;      Types: full compact custom;
    
67. 
    
68. Name: beautifysounds; Description:Windows Vista声音; Types: full compact custom;
    
69. 
    
70. Name: beautifypb;     Description:屏幕保护程序;      Types: full compact custom;
    
71. 
    
72. Name: beautifysb;     Description:鼠标方案;          Types: full compact custom;
    
73. 
    
74. Name: beautifypic;    Description:桌面壁纸;          Types: full compact custom;
    
75. 
    
76. [Files]
    
77. 
    
78. Source: "c:Source        hemeContextBG.dll";                  DestDir: "{sys}";              Components: "beautifysbyj"; Flags: regserver
    
79. 
    
80. ;桌面壁纸 20
    
81. 
    
82. Source: "C:Source        hemeWebWallpaperandy.jpg"; DestDir: "{win}WebWallpaper";Components: "beautifypic"; Flags: onlyifdoesntexist ignoreversion
    
83. 
    
84. Source: "C:Source        hemeWebWallpaperAquanox.jpg"; DestDir: "{win}WebWallpaper"; Components: "beautifypic";Flags: onlyifdoesntexist ignoreversion
    
85. 
    
86. Source: "C:Source        hemeWebWallpaperDz Gant OS.jpg"; DestDir: "{win}WebWallpaper";Components: "beautifypic"; Flags: onlyifdoesntexist ignoreversion
    
87. 
    
88. Source: "C:Source        hemeWebWallpaperFloatingIsle.jpg"; DestDir: "{win}WebWallpaper";Components: "beautifypic"; Flags: onlyifdoesntexist ignoreversion
    
89. 
    
90. Source: "C:Source        hemeWebWallpaperFly Away.jpg"; DestDir: "{win}WebWallpaper";Components: "beautifypic"; Flags: onlyifdoesntexist ignoreversion
    
91. 
    
92. Source: "C:Source        hemeWebWallpapergfxOasis.jpg"; DestDir: "{win}WebWallpaper";Components: "beautifypic"; Flags: onlyifdoesntexist ignoreversion
    
93. 
    
94. Source: "C:Source        hemeWebWallpaperIllumeCG.jpg"; DestDir: "{win}WebWallpaper";Components: "beautifypic"; Flags: onlyifdoesntexist ignoreversion
    
95. 
    
96. Source: "C:Source        hemeWebWallpaperLE5.jpg"; DestDir: "{win}WebWallpaper";Components: "beautifypic"; Flags: onlyifdoesntexist ignoreversion
    
97. 
    
98. Source: "C:Source        hemeWebWallpaperLuna Royale.jpg"; DestDir: "{win}WebWallpaper"; Components: "beautifypic";Flags: onlyifdoesntexist ignoreversion
    
99. 
    
100. Source: "C:Source        hemeWebWallpaperLunaVX.jpg"; DestDir: "{win}WebWallpaper";Components: "beautifypic"; Flags: onlyifdoesntexist ignoreversion
     
101. 
     
102. Source: "C:Source        hemeWebWallpaperPixOS.jpg"; DestDir: "{win}WebWallpaper";Components: "beautifypic"; Flags: onlyifdoesntexist ignoreversion
     
103. 
     
104. Source: "C:Source        hemeWebWallpaperRoyale.jpg"; DestDir: "{win}WebWallpaper";Components: "beautifypic"; Flags: onlyifdoesntexist ignoreversion
     
105. 
     
106. Source: "C:Source        hemeWebWallpaperSpring.jpg"; DestDir: "{win}WebWallpaper";Components: "beautifypic"; Flags: onlyifdoesntexist ignoreversion
     
107. 
     
108. Source: "C:Source        hemeWebWallpaperSummer.jpg"; DestDir: "{win}WebWallpaper";Components: "beautifypic"; Flags: onlyifdoesntexist ignoreversion
     
109. 
     
110. Source: "C:Source        hemeWebWallpaperThallos.jpg"; DestDir: "{win}WebWallpaper";Components: "beautifypic"; Flags: onlyifdoesntexist ignoreversion
     
111. 
     
112. Source: "C:Source        hemeWebWallpaperThe Falls.jpg"; DestDir: "{win}WebWallpaper"; Components: "beautifypic";Flags: onlyifdoesntexist ignoreversion
     
113. 
     
114. Source: "C:Source        hemeWebWallpaperThe Falls II.jpg"; DestDir: "{win}WebWallpaper";Components: "beautifypic"; Flags: onlyifdoesntexist ignoreversion
     
115. 
     
116. Source: "C:Source        hemeWebWallpaperTiger.jpg"; DestDir: "{win}WebWallpaper"; Components: "beautifypic";Flags: onlyifdoesntexist ignoreversion
     
117. 
     
118. Source: "C:Source        hemeWebWallpaperVista.jpg"; DestDir: "{win}WebWallpaper"; Components: "beautifypic";Flags: onlyifdoesntexist ignoreversion
     
119. 
     
120. Source: "C:Source        hemeWebWallpaperWinter.jpg"; DestDir: "{win}WebWallpaper";Components: "beautifypic"; Flags: onlyifdoesntexist ignoreversion
     
121. 
     
122. ; Windows Vista声音
     
123. 
     
124. Source: "C:Source        hemeMediaWindows XP 错误.wav";             DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
125. 
     
126. Source: "C:Source        hemeMediaWindows XP 登录音.wav";           DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
127. 
     
128. Source: "C:Source        hemeMediaWindows XP 电池不足.wav";         DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
129. 
     
130. Source: "C:Source        hemeMediaWindows XP 电池电力严重短缺.wav"; DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
131. 
     
132. Source: "C:Source        hemeMediaWindows XP 叮当声.wav";           DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
133. 
     
134. Source: "C:Source        hemeMediaWindows XP 关机.wav";             DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
135. 
     
136. Source: "C:Source        hemeMediaWindows XP 关键性终止.wav";       DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
137. 
     
138. Source: "C:Source        hemeMediaWindows XP 回收.wav";             DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
139. 
     
140. Source: "C:Source        hemeMediaWindows XP 惊叹号.wav";           DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
141. 
     
142. Source: "C:Source        hemeMediaWindows XP 开始.wav";             DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
143. 
     
144. Source: "C:Source        hemeMediaWindows XP 启动.wav";             DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
145. 
     
146. Source: "C:Source        hemeMediaWindows XP 气球.wav";             DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
147. 
     
148. Source: "C:Source        hemeMediaWindows XP 通知.wav";             DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
149. 
     
150. Source: "C:Source        hemeMediaWindows XP 硬件插入.wav";         DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
151. 
     
152. Source: "C:Source        hemeMediaWindows XP 硬件故障.wav";         DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
153. 
     
154. Source: "C:Source        hemeMediaWindows XP 硬件删除.wav";         DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
155. 
     
156. Source: "C:Source        hemeMediaWindows XP 注销音.wav";           DestDir: "{win}Media"; Components: "beautifysounds"; Flags: onlyifdoesntexist ignoreversion
     
157. 
     
158. ;鼠标方案(vista)
     
159. 
     
160. Source: "C:Source        hemeCursorsVistaAppStarting.ani"; DestDir: "{win}CursorsVista"; Components: "beautifysb"; Flags: onlyifdoesntexist ignoreversion
     
161. 
     
162. Source: "C:Source        hemeCursorsVistaArrow.cur";       DestDir: "{win}CursorsVista"; Components: "beautifysb"; Flags: onlyifdoesntexist ignoreversion
     
163. 
     
164. Source: "C:Source        hemeCursorsVistaCross.cur";       DestDir: "{win}CursorsVista"; Components: "beautifysb"; Flags: onlyifdoesntexist ignoreversion
     
165. 
     
166. Source: "C:Source        hemeCursorsVistaHand.ani";        DestDir: "{win}CursorsVista"; Components: "beautifysb"; Flags: onlyifdoesntexist ignoreversion
     
167. 
     
168. Source: "C:Source        hemeCursorsVistaHandwriting.cur"; DestDir: "{win}CursorsVista"; Components: "beautifysb"; Flags: onlyifdoesntexist ignoreversion
     
169. 
     
170. Source: "C:Source        hemeCursorsVistaHelp.ani";        DestDir: "{win}CursorsVista"; Components: "beautifysb"; Flags: onlyifdoesntexist ignoreversion
     
171. 
     
172. Source: "C:Source        hemeCursorsVistaIBeam.cur";       DestDir: "{win}CursorsVista"; Components: "beautifysb"; Flags: onlyifdoesntexist ignoreversion
     
173. 
     
174. Source: "C:Source        hemeCursorsVistaNo.ani";          DestDir: "{win}CursorsVista"; Components: "beautifysb"; Flags: onlyifdoesntexist ignoreversion
     
175. 
     
176. Source: "C:Source        hemeCursorsVistaSizeAll.ani";     DestDir: "{win}CursorsVista"; Components: "beautifysb"; Flags: onlyifdoesntexist ignoreversion
     
177. 
     
178. Source: "C:Source        hemeCursorsVistaSizeNESW.ani";    DestDir: "{win}CursorsVista"; Components: "beautifysb"; Flags: onlyifdoesntexist ignoreversion
     
179. 
     
180. Source: "C:Source        hemeCursorsVistaSizeNS.ani";      DestDir: "{win}CursorsVista"; Components: "beautifysb"; Flags: onlyifdoesntexist ignoreversion
     
181. 
     
182. Source: "C:Source        hemeCursorsVistaSizeNWSE.ani";    DestDir: "{win}CursorsVista"; Components: "beautifysb"; Flags: onlyifdoesntexist ignoreversion
     
183. 
     
184. Source: "C:Source        hemeCursorsVistaSizeWE.ani";      DestDir: "{win}CursorsVista"; Components: "beautifysb"; Flags: onlyifdoesntexist ignoreversion
     
185. 
     
186. Source: "C:Source        hemeCursorsVistaUpArrow.cur";     DestDir: "{win}CursorsVista"; Components: "beautifysb"; Flags: onlyifdoesntexist ignoreversion
     
187. 
     
188. Source: "C:Source        hemeCursorsVistaWait.ani";        DestDir: "{win}CursorsVista"; Components: "beautifysb"; Flags: onlyifdoesntexist ignoreversion
     
189. 
     
190. ;屏幕保护程序(8款)
     
191. 
     
192. Source: "C:Source        hemesystem32Aurora.scr";        DestDir: "{sys}"; Components: "beautifypb"; Flags: onlyifdoesntexist ignoreversion
     
193. 
     
194. Source: "C:Source        hemesystem32Particle Fire.scr"; DestDir: "{sys}"; Components: "beautifypb"; Flags: onlyifdoesntexist ignoreversion
     
195. 
     
196. Source: "C:Source        hemesystem32XPize.scr";         DestDir: "{sys}"; Components: "beautifypb"; Flags: onlyifdoesntexist ignoreversion
     
197. 
     
198. Source: "C:Source        hemesystem32穿梭彩线.scr";      DestDir: "{sys}"; Components: "beautifypb"; Flags: onlyifdoesntexist ignoreversion
     
199. 
     
200. Source: "C:Source        hemesystem32肥皂泡泡.scr";       DestDir: "{sys}"; Components: "beautifypb"; Flags: onlyifdoesntexist ignoreversion
     
201. 
     
202. Source: "C:Source        hemesystem32七彩极光.scr";       DestDir: "{sys}"; Components: "beautifypb"; Flags: onlyifdoesntexist ignoreversion
     
203. 
     
204. Source: "C:Source        hemesystem32星夜焰火.scr";       DestDir: "{sys}"; Components: "beautifypb"; Flags: onlyifdoesntexist ignoreversion
     
205. 
     
206. Source: "C:Source        hemesystem32夜光时钟.scr";       DestDir: "{sys}"; Components: "beautifypb"; Flags: onlyifdoesntexist ignoreversion
     
207. 
     
208. ;===========================================Themes==================================
     
209. 
     
210. ;vista
     
211. 
     
212. Source: "C:Source        hemeResourcesThemesVista.theme";                            DestDir: "{win}ResourcesThemes";                         Components: "themesVista"; Flags: onlyifdoesntexist ignoreversion
     
213. 
     
214. Source: "C:Source        hemeResourcesThemesVistaVista.msstyles";                   DestDir: "{win}ResourcesThemesVista";                   Components: "themesVista"; Flags: onlyifdoesntexist ignoreversion
     
215. 
     
216. Source: "C:Source        hemeResourcesThemesVistaIconsEmpty Recycle Bin.ico";      DestDir: "{win}ResourcesThemesVistaIcons";             Components: "themesVista"; Flags: onlyifdoesntexist ignoreversion
     
217. 
     
218. Source: "C:Source        hemeResourcesThemesVistaIconsFull Recycle Bin.ico";       DestDir: "{win}ResourcesThemesVistaIcons";             Components: "themesVista"; Flags: onlyifdoesntexist ignoreversion
     
219. 
     
220. Source: "C:Source        hemeResourcesThemesVistaIconsMy Computer.ico";            DestDir: "{win}ResourcesThemesVistaIcons";             Components: "themesVista"; Flags: onlyifdoesntexist ignoreversion
     
221. 
     
222. Source: "C:Source        hemeResourcesThemesVistaIconsMy Documents.ico";           DestDir: "{win}ResourcesThemesVistaIcons";             Components: "themesVista"; Flags: onlyifdoesntexist ignoreversion
     
223. 
     
224. Source: "C:Source        hemeResourcesThemesVistaIconsMy Network Places.ico";      DestDir: "{win}ResourcesThemesVistaIcons";             Components: "themesVista"; Flags: onlyifdoesntexist ignoreversion
     
225. 
     
226. Source: "C:Source        hemeResourcesThemesVistashellBasicShellStyle.dll";       DestDir: "{win}ResourcesThemesVistashellBasic";       Components: "themesVista"; Flags: onlyifdoesntexist ignoreversion
     
227. 
     
228. Source: "C:Source        hemeResourcesThemesVistashellBlackShellStyle.dll";       DestDir: "{win}ResourcesThemesVistashellBlack";       Components: "themesVista"; Flags: onlyifdoesntexist ignoreversion
     
229. 
     
230. Source: "C:Source        hemeResourcesThemesVistashellCGShellStyle.dll";          DestDir: "{win}ResourcesThemesVistashellCG";          Components: "themesVista"; Flags: onlyifdoesntexist ignoreversion
     
231. 
     
232. Source: "C:Source        hemeResourcesThemesVistashellNormalColorShellStyle.dll"; DestDir: "{win}ResourcesThemesVistashellNormalColor"; Components: "themesVista"; Flags: onlyifdoesntexist ignoreversion
     
233. 
     
234. ;主题破解程序
     
235. 
     
236. Source: "C:Source        hemeUXTheme.exe"; DestDir: "{tmp}"; DestName: "UXTheme.exe";  MinVersion: 0.0,5.01.2600; Flags: overwritereadonly
     
237. 
     
238. Source: "C:Source        heme9esu.ico"; DestDir: "{app}"; DestName: "UXTheme"; Flags: onlyifdoesntexist ignoreversion
     
239. 
     
240. [INI]
     
241. 
     
242. Filename: "{app}【9esu主页】.url"; Section: "InternetShortcut"; Key: "URL"; String: "http://188168432.qzone.qq.com"
     
243. 
     
244. [Registry]
     
245. 
     
246. Root: HKCU; Subkey: "Control PanelInternational"; ValueType: string; ValueName: "sLongDate"; ValueData: "yyyy'年'M'月'd'日' dddd";Flags: uninsdeletevalue noerror
     
247. 
     
248. [Run]
     
249. 
     
250. Filename: "{tmp}UXTheme.exe"; Description: "{cm:LaunchProgram,破解系统UXTheme.dll文件}"; Flags: nowait postinstall skipifsilent
     
251. 
     
252. [Icons]
     
253. 
     
254. ;桌面快捷方式
     
255. 
     
256. Name: "{userdesktop}【9esu主页】"; Filename: "{app}【9esu主页】.url"; IconFilename: "{app}9esu.ico"
     
257. 
     
258. [Code]
     
259. 
     
260. procedure URLLabelOnClick(Sender: TObject);
     
261. 
     
262. var
     
263. 
     
264.   ErrorCode: Integer;
     
265. 
     
266. begin
     
267. 
     
268.   ShellExec('open', 'http://188168432.qzone.qq.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
     
269. 
     
270. end;
     
271. 
     
272. procedure AboutButtonOnClick(Sender: TObject);
     
273. 
     
274. begin
     
275. 
     
276.   MsgBox(#13 '系统主题资源包 2.20' #13 #13'本软件由9esu制作，希望各位登陆9esu的QQ空间！' #13#13 '版权所有 (C)  9esu', mbInformation, MB_OK);
     
277. 
     
278. end;
     
279. 
     
280. var
     
281. 
     
282.     AboutButton, CancelButton: TButton;
     
283. 
     
284.     URLLabel: TNewStaticText;
     
285. 
     
286. procedure InitializeWizard();
     
287. 
     
288. begin
     
289. 
     
290.   { Create the pages }
     
291. 
     
292. WizardForm.PAGENAMELABEL.Font.Color:= clred;
     
293. 
     
294. WizardForm.PAGEDESCRIPTIONLABEL.Font.Color:= clBlue;
     
295. 
     
296. WizardForm.WELCOMELABEL1.Font.Color:= clGreen;
     
297. 
     
298. WizardForm.WELCOMELABEL2.Font.Color:= clblack;
     
299. 
     
300.    CancelButton := WizardForm.CancelButton;
     
301. 
     
302.      AboutButton := TButton.Create(WizardForm);
     
303. 
     
304.      AboutButton.Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width;
     
305. 
     
306.      AboutButton.Top := CancelButton.Top;
     
307. 
     
308.      AboutButton.Width := CancelButton.Width;
     
309. 
     
310.      AboutButton.Height := CancelButton.Height;
     
311. 
     
312.      AboutButton.Caption := '&About';
     
313. 
     
314.      AboutButton.OnClick := @AboutButtonOnClick;
     
315. 
     
316.      AboutButton.Parent := WizardForm;
     
317. 
     
318.   URLLabel := TNewStaticText.Create(WizardForm);
     
319. 
     
320.     URLLabel.Caption := '访问9esu空间';
     
321. 
     
322.     URLLabel.Cursor := crHand;
     
323. 
     
324.     URLLabel.OnClick := @URLLabelOnClick;
     
325. 
     
326.     URLLabel.Parent := WizardForm;
     
327. 
     
328.     { Alter Font *after* setting Parent so the correct defaults are inherited first }
     
329. 
     
330.     URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
     
331. 
     
332.     URLLabel.Font.Color := clBlue;
     
333. 
     
334.     URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
     
335. 
     
336.     URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(20);
     
337. 
     
338. end;

复制代码