Inno Setup 仿有道云安装包界面

Share

1. #define MyAppName "YNote"
   
2. [setup]
   
3. AppName={#MyAppName}
   
4. AppVersion=0.0.0.1
   
5. AppVerName={#MyAppName}
   
6. DefaultDirName={pf}\{#MyAppName}
   
7. OutputBaseFilename={#MyAppName}
   
8. Versioninfodescription={#MyAppName} 安装程序
   
9. versioninfocopyright=Copyright(c) 2016
   
10. VersionInfoProductName={#MyAppName}
    
11. versioninfoversion=0.0.0.1
    
12. SetupIconFile=YNote.ico
    
13. UninstallIconFile=YNote.ico
    
14. OutputDir=.
    
15. 
    
16. Compression=lzma2/ultra64
    
17. 
    
18. DisableReadyPage=yes
    
19. DisableProgramGroupPage=yes
    
20. DirExistsWarning=no
    
21. DisableDirPage=yes
    
22. [Messages]
    
23. SetupAppTitle={#MyAppName} 安装向导
    
24. SetupWindowTitle={#MyAppName} 安装向导
    
25. 
    
26. [Files]
    
27. //onlyifdoesntexist 仅在文件不存在的时候 安装
    
28. Source: tmp\*; DestDir: {tmp}; Flags: dontcopy solidbreak ; Attribs: hidden system
    
29. Source: app\*; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;
    
30. 
    
31. [Icons]
    
32. Name: C:\ProgramData\Microsoft\Windows\Start Menu\Programs\有道Haroun\{#MyAppName}\{#MyAppName}; Filename: {app}\YNote.exe; WorkingDir: {app};
    
33. //开始菜单快捷方式
    
34. Name: C:\ProgramData\Microsoft\Windows\Start Menu\Programs\有道Haroun\{#MyAppName}\卸载 {#MyAppName}; Filename:{uninstallexe}; WorkingDir: {app};
    
35. //开始菜单卸载程序
    
36. Name: {commondesktop}\{#MyAppName}; Filename: {app}\YNote.exe; WorkingDir: {app};
    
37. 
    
38. //桌面快捷方式
    
39. 
    
40. [code]
    
41. #include  'dll.iss'
    
42. 
    
43. 
    
44. var
    
45.   label1,label2:TLabel;
    
46.   pathEditbkg,BGimg:longint;
    
47.   licenseBtn,MinBtn,CancelBtn,btn_Browser,btn_setup,btn5,btnBack:HWND;
    
48.   c_btn,xypd:boolean;
    
49.   pathEdit:tedit;
    
50.   licenseImg,progressbgImgbk,progressbgImg,PBOldProc:longint;
    
51.   Timer1: TTimer;
    
52.   licenseCheck,saveMyDirRadio,saveCustomDirRadio:HWND;
    
53.   licenseRich:TRichEditViewer;
    
54.   
    
55. Function StartMenu(): Boolean;
    
56. begin
    
57.   Result :=BtngetChecked(saveCustomDirRadio)
    
58. end;
    
59. 
    
60. Function desktop(): Boolean;
    
61. begin
    
62.   Result :=BtngetChecked(saveMyDirRadio)
    
63. end;
    
64.   
    
65. procedure CancelBtnOnClick(hBtn:HWND);
    
66. begin
    
67. WizardForm.CancelButton.Click;
    
68. end;
    
69. 
    
70. procedure MinBtnOnClick(hBtn:HWND);
    
71. begin
    
72. SendMessage(WizardForm.Handle,WM_SYSCOMMAND,61472,0);
    
73. end;
    
74.   
    
75. procedure btn5click(hBtn:HWND);
    
76. begin
    
77.   if c_btn then
    
78.   begin
    
79.   BtnSetPosition(licenseCheck,22,475,15,15);
    
80.   BtnSetPosition(licenseBtn,100,475,108,15);
    
81.   BtnSetPosition(btn5,560,479,75,15);
    
82.   pathEdit.show;
    
83.   BtnSetVisibility(btn_Browser,true)
    
84.   WizardForm.Height:=508
    
85.   BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\bigbg.png'),0,0,650,508,true,true);
    
86.   c_btn := false
    
87.   end else
    
88.   begin
    
89.   BtnSetPosition(licenseCheck,22,421,15,15);
    
90.   BtnSetPosition(licenseBtn,100,421,108,15);
    
91.   BtnSetPosition(btn5,560,421,75,15);
    
92.   pathEdit.Hide;
    
93.   BtnSetVisibility(btn_Browser,false)
    
94.   WizardForm.Height:=450
    
95.   BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\xy.png'),0,0,650,450,false,true);
    
96.   c_btn := true
    
97.   end
    
98.   ImgApplyChanges(WizardForm.Handle)
    
99. end;
    
100. 
     
101. procedure btn_Browserclick(hBtn:HWND);
     
102. begin
     
103.   WizardForm.DirBrowseButton.Click;
     
104.   pathEdit.text := WizardForm.DirEdit.text;
     
105. end;
     
106. 
     
107. procedure pathEditChange(Sender: TObject);
     
108. begin
     
109.   WizardForm.DirEdit.text:=pathEdit.Text ;
     
110. end;
     
111. 
     
112. procedure check_licenseclick(hBtn:HWND);
     
113. begin
     
114.     if BtnGetChecked(licenseCheck)=true then
     
115.     begin
     
116.        BtnSetEnabled(btn_setup,true)
     
117.     end
     
118.     else
     
119.     begin
     
120.        BtnSetEnabled(btn_setup,false)
     
121.     end
     
122. end;
     
123. 
     
124. procedure btn_setupclick(hBtn:HWND);
     
125. begin
     
126.   WizardForm.NextButton.Click;
     
127. end;
     
128. 
     
129. function PBProc(h:hWnd;Msg,wParam,lParam:Longint):Longint;
     
130. var
     
131.   pr,i1,i2 : Extended;
     
132.   w : integer;
     
133. begin
     
134.   Result:=CallWindowProc(PBOldProc,h,Msg,wParam,lParam);
     
135.   if (Msg=$402) and (WizardForm.ProgressGauge.Position>WizardForm.ProgressGauge.Min) then
     
136.   begin
     
137.     i1:=WizardForm.ProgressGauge.Position-WizardForm.ProgressGauge.Min;
     
138.     i2:=WizardForm.ProgressGauge.Max-WizardForm.ProgressGauge.Min;
     
139.     pr:=i1*100/i2;
     
140.     w:=Round(650*pr/100);
     
141.     ImgSetPosition(progressbgImg,0,375,w,15);
     
142.     ImgSetVisiblePart(progressbgImg,0,0,w,15);
     
143.     ImgApplyChanges(WizardForm.Handle);
     
144.   end;
     
145. end;
     
146. 
     
147. 
     
148. 
     
149. procedure WizardMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
     
150. begin
     
151.   ReleaseCapture
     
152.   SendMessage(WizardForm.Handle, $0112, $F012, 0)
     
153. end;
     
154. 
     
155. var
     
156. b1,b2,b3,b4,t1,t2,t3,t4,DHIMG1:Longint;
     
157. js1,js2:integer;
     
158. 
     
159. procedure Timer1Timer(Sender: TObject);   //核心代码 时钟控制动画 需要inno5 增强版      代码.mad8834671
     
160. begin
     
161. 
     
162.   js2:=js2+10; //控制图片透明度
     
163. //if js2<650 then
     
164. //  begin
     
165. //  ImgSetTransparentEx(t1,t2,t3,t4,-650+js2)
     
166. //  end
     
167. 
     
168.   if  (js2>650) then      //控制图片透明度 计数归零
     
169.   begin
     
170.   js2:=0
     
171.   js1:=js1+1;
     
172.   end
     
173. 
     
174. 
     
175. if js2<650 then
     
176. begin
     
177.     //控制显示图片
     
178.   if js1=1 then
     
179.   begin
     
180.   ImgSetPosition(t1,-650+js2,0,650,374)
     
181. // ImgSetVisibilityEx(t1,t2,t3,t4,1,0,0,0)
     
182. //ImgSetVisibility(t1,true)
     
183. ImgSetVisibility(t2,false)
     
184. ImgSetVisibility(t3,false)
     
185. ImgSetVisibility(t4,false)
     
186. ImgSetVisibility(t1,true)
     
187. 
     
188.   end
     
189.   if js1=2 then
     
190.   begin
     
191.   ImgSetPosition(t2,-650+js2,0,650,374)
     
192.   //ImgSetVisibilityEx(t1,t2,t3,t4,0,1,0,0)
     
193. ImgSetVisibility(t1,false)
     
194. 
     
195. ImgSetVisibility(t3,false)
     
196. ImgSetVisibility(t4,false)
     
197. ImgSetVisibility(t2,true)
     
198. 
     
199. ImgSetVisibility(b1,true)
     
200. ImgSetVisibility(b3,false)
     
201. ImgSetVisibility(b4,false)
     
202. ImgSetVisibility(b2,false)
     
203.   end
     
204.   if js1=3 then
     
205.   begin
     
206.   ImgSetPosition(t3,-650+js2,0,650,374)
     
207. // ImgSetVisibilityEx(t1,t2,t3,t4,0,0,1,0)
     
208. ImgSetVisibility(t1,false)
     
209. ImgSetVisibility(t2,false)
     
210. 
     
211. ImgSetVisibility(t4,false)
     
212. ImgSetVisibility(t3,true)
     
213. 
     
214. ImgSetVisibility(b1,false)
     
215. ImgSetVisibility(b3,false)
     
216. ImgSetVisibility(b4,false)
     
217. ImgSetVisibility(b2,true)
     
218.   end
     
219.   if js1=4 then
     
220.   begin
     
221.   ImgSetPosition(t4,-650+js2,0,650,374)
     
222. // ImgSetVisibilityEx(t1,t2,t3,t4,0,0,0,1)
     
223. ImgSetVisibility(t1,false)
     
224. ImgSetVisibility(t2,false)
     
225. ImgSetVisibility(t3,false)
     
226. ImgSetVisibility(t4,true)
     
227. 
     
228.   ImgSetVisibility(b1,false)
     
229. ImgSetVisibility(b3,true)
     
230. ImgSetVisibility(b4,false)
     
231. ImgSetVisibility(b2,false)
     
232.   end
     
233.   if js1>4 then
     
234.   begin
     
235.   ImgSetPosition(t1,-650+js2,0,650,374)
     
236. // ImgSetVisibilityEx(t1,t2,t3,t4,1,0,0,0)
     
237.   ImgSetVisibility(t2,false)
     
238. ImgSetVisibility(t3,false)
     
239. ImgSetVisibility(t4,false)
     
240. ImgSetVisibility(t1,true)
     
241. 
     
242. ImgSetVisibility(b1,false)
     
243. ImgSetVisibility(b3,false)
     
244. ImgSetVisibility(b4,true)
     
245. ImgSetVisibility(b2,false)
     
246. 
     
247.   js1:=1
     
248.   end
     
249. end
     
250. 
     
251. 
     
252. //if (js2>260) and (js2<520) then  //控制图片透明度
     
253. //  begin
     
254. //  ImgSetTransparentEx(t1,t2,t3,t4,js2-255)
     
255. //  end
     
256. 
     
257.   ImgApplyChanges(WizardForm.Handle)
     
258. end;
     
259. procedure locklicenseclick(hBtn:HWND);
     
260. begin
     
261. if c_btn=false then
     
262. begin
     
263.   BtnSetPosition(licenseCheck,22,421,15,15);
     
264.   BtnSetPosition(licenseBtn,100,421,108,15);
     
265.   BtnSetPosition(btn5,560,421,75,15);
     
266.   pathEdit.Hide;
     
267.   BtnSetVisibility(btn_Browser,false)
     
268.   WizardForm.Height:=450
     
269.   BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\xy.png'),0,0,650,450,false,true);
     
270.   c_btn := true
     
271. end
     
272.   if xypd=true then
     
273.   begin
     
274.     licenseImg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\bg_license.png'),0,0,650,450,false,false);
     
275.     xypd:=false
     
276.     licenseRich.Height:=321
     
277.     BtnSetVisibility(licenseCheck,false)
     
278.     BtnSetVisibility(licenseBtn,false)
     
279.     BtnSetVisibility(btn5,false)
     
280.     BtnSetVisibility(btn_setup,false)
     
281.     BtnSetVisibility(btnBack,true)
     
282.   end
     
283.   else
     
284.   begin
     
285.     xypd:=true
     
286.     BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\xy.png'),0,0,650,450,false,true);
     
287.     licenseRich.Height:=0
     
288.     BtnSetVisibility(licenseCheck,true)
     
289.     BtnSetVisibility(licenseBtn,true)
     
290.     BtnSetVisibility(btn5,true)
     
291.     BtnSetVisibility(btn_setup,true)
     
292.     ImgRelease(licenseImg)
     
293.     BtnSetVisibility(btnBack,false)
     
294.   end
     
295.     ImgApplyChanges(WizardForm.Handle)
     
296. end;
     
297. 
     
298. procedure InitializeWizard();
     
299. begin
     
300.   WizardForm.OuterNotebook.hide;
     
301.   WizardForm.Bevel.Hide;
     
302.   WizardForm.BorderStyle:=bsnone;
     
303.   WizardForm.Position:=poDesktopCenter;
     
304.   WizardForm.Width:=650;
     
305.   WizardForm.Height:=508;
     
306.   WizardForm.Color:=clWhite ;
     
307.   xypd:=true;
     
308. 
     
309.   WizardForm.OnMouseDown:=@WizardMouseDown
     
310.   c_btn := true;
     
311.   
     
312.   ExtractTemporaryFile('bg_license.png');
     
313.   ExtractTemporaryFile('license.rtf');
     
314.   ExtractTemporaryFile('btn_n.png');
     
315.   ExtractTemporaryFile('btn_complete.png');
     
316.   ExtractTemporaryFile('btn_setup.png');
     
317.   ExtractTemporaryFile('xy.png');
     
318.   ExtractTemporaryFile('bigbg.png');
     
319.   ExtractTemporaryFile('btn_Browser.png');
     
320.   ExtractTemporaryFile('edit_Browser.png');
     
321.   
     
322.   ExtractTemporaryFile('loadingbk.png');
     
323.   ExtractTemporaryFile('loading.png');
     
324.   ExtractTemporaryFile('license.png');
     
325.   ExtractTemporaryFile('loading_pic1.png');
     
326.   ExtractTemporaryFile('loading_pic2.png');
     
327.   ExtractTemporaryFile('loading_pic3.png');
     
328.   ExtractTemporaryFile('loading_pic4.png');
     
329.   
     
330.   ExtractTemporaryFile('checkbox.png');
     
331.    ExtractTemporaryFile('checkboxdeep.png');
     
332.    
     
333.   ExtractTemporaryFile('loading_pic.png');
     
334.   ExtractTemporaryFile('finish_bg.png');
     
335.   ExtractTemporaryFile('btn_close.png');
     
336.   ExtractTemporaryFile('btn_min.png');
     
337.   ExtractTemporaryFile('back.png');
     
338.   CancelBtn:=BtnCreate(WizardForm.Handle,627,8,17,15,ExpandConstant('{tmp}\btn_close.png'),1,False)
     
339.   BtnSetEvent(CancelBtn,BtnClickEventID,WrapBtnCallback(@CancelBtnOnClick,1));
     
340.   
     
341.   MinBtn:=BtnCreate(WizardForm.Handle,607,8,17,15,ExpandConstant('{tmp}\btn_min.png'),1,False)
     
342.   BtnSetEvent(MinBtn,BtnClickEventID,WrapBtnCallback(@MinBtnOnClick,1));
     
343.   
     
344.   btn_setup:=BtnCreate(WizardForm.Handle,225,308,199,58,ExpandConstant('{tmp}\btn_setup.png'),1,False)
     
345.   BtnSetEvent(btn_setup,BtnClickEventID,WrapBtnCallback(@btn_setupclick,1));
     
346.   
     
347.   btnBack:=BtnCreate(WizardForm.Handle,274,380,102,42,ExpandConstant('{tmp}\back.png'),1,False)
     
348.   BtnSetEvent(btnBack,BtnClickEventID,WrapBtnCallback(@locklicenseclick,1));
     
349.   BtnSetVisibility(btnBack,false)
     
350.   
     
351.   pathEdit:= TEdit.Create(WizardForm);
     
352. 
     
353.   with pathEdit do
     
354.   begin
     
355.     Parent := WizardForm;
     
356.     text :=WizardForm.DirEdit.text;
     
357.     Font.Name:='宋体'
     
358.     BorderStyle:=bsNone;
     
359.     SetBounds(60,385,440,15)
     
360.     OnChange:=@pathEditChange;
     
361.     //Color := $00D0e2ff;    cl3dlight
     
362.     Color := $00FFE2D0
     
363.     TabStop :=false;
     
364.   end;
     
365.   pathEdit.Hide;
     
366.   //pathEditbkg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\edit_Browser.png'),60,385,500,15,FALSE,true);
     
367.   //ImgSetVisibility(pathEditbkg,true)
     
368.   // pathEditbkg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\edit_Browser.png'),95,340,298,24,FALSE,true);
     
369.   btn_Browser:=BtnCreate(WizardForm.Handle,520,375,82,32,ExpandConstant('{tmp}\btn_Browser.png'),1,False)
     
370.   BtnSetEvent(btn_Browser,BtnClickEventID,WrapBtnCallback(@btn_Browserclick,1));
     
371.   BtnSetVisibility(btn_Browser,false)
     
372.   
     
373.   btn5:=BtnCreate(WizardForm.Handle,560,421,75,15,ExpandConstant('{tmp}\btn_n.png'),1,False)
     
374.   BtnSetEvent(btn5,BtnClickEventID,WrapBtnCallback(@btn5click,1));
     
375. 
     
376.   PBOldProc:=SetWindowLong(WizardForm.ProgressGauge.Handle,-4,PBCallBack(@PBProc,4));
     
377. 
     
378.   Timer1 := TTimer.Create(WizardForm);
     
379.   with Timer1 do
     
380.   begin
     
381.     OnTimer := @Timer1Timer;
     
382.   end;
     
383.    js1:=1
     
384.    js2:=0
     
385.   licenseRich:= TRichEditViewer.Create(WizardForm);
     
386.   with licenseRich do
     
387.   begin
     
388.   Parent := WizardForm;
     
389.   ReadOnly:= true;
     
390.   SCROLLBARS:= ssVertical;
     
391.   font.Name:='宋体'
     
392.   Color:=clWhite;
     
393.   BorderStyle:= bsNone;
     
394.   SetBounds(42,36,567,187)
     
395.   Lines.LoadFromFile(ExpandConstant('{tmp}\license.rtf'));
     
396.   TabStop:=false;
     
397.   Height := 0;
     
398.   end;
     
399.   
     
400.   ImgApplyChanges(WizardForm.Handle)
     
401. end;
     
402. 
     
403. 
     
404. 
     
405. procedure DeinitializeSetup();
     
406. begin
     
407.   gdipShutdown;
     
408. end;
     
409. 
     
410. procedure CurPageChanged(CurPageID: Integer);
     
411. begin
     
412.   WizardForm.NextButton.Visible:=false;
     
413.   WizardForm.CancelButton.Height:=0;
     
414.   WizardForm.BackButton.Height:=0;
     
415.   if CurPageID=wpWelcome then
     
416.   begin
     
417.   BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\xy.png'),0,0,650,450,true,true);
     
418.   //pathEditbkg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\edit_Browser.png'),60,385,500,15,FALSE,true);
     
419.   
     
420.    //BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\loading_pic.png'),0,0,650,450,false,true);
     
421.   // ImgSetPosition(BGimg,-100,0,650,450);
     
422.   //  ImgSetVisiblePart(progressbgImg,0,0,w,15);
     
423.   licenseBtn:=BtnCreate(WizardForm.Handle,100,421,108,15,ExpandConstant('{tmp}\license.png'),4,false)
     
424.   BtnSetEvent(licenseBtn,BtnClickEventID,WrapBtnCallback(@locklicenseclick,1));
     
425.   licenseCheck:=BtnCreate(WizardForm.Handle,22,421,15,15,ExpandConstant('{tmp}\checkboxdeep.png'),1,true)
     
426.   BtnSetEvent(licenseCheck,BtnClickEventID,WrapBtnCallback(@check_licenseclick,1));
     
427.   BtnSetChecked(licenseCheck,true)
     
428.   
     
429.   WizardForm.Width:=650;
     
430.   WizardForm.Height:=450;
     
431.   WizardForm.Show;
     
432.   end
     
433.   if CurPageID = wpInstalling then
     
434.   begin
     
435.   
     
436.    // ImgSetPosition(progressbgImg,0,400,650,10);
     
437.    // ImgSetVisiblePart(progressbgImg,0,0,0,10);
     
438.   BtnSetPosition(licenseCheck,560,421,75,15);
     
439.   BtnSetPosition(btn5,560,421,75,15);
     
440.   pathEdit.Hide;
     
441.   BtnSetVisibility(btn_Browser,false)
     
442.   WizardForm.Height:=450
     
443. // BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\xy.png'),0,0,650,450,false,true);
     
444.   c_btn := true
     
445.   BtnSetVisibility(btn5,false);
     
446.   BtnSetVisibility(licenseBtn,false);
     
447.   BtnSetVisibility(licenseCheck,false);
     
448.   BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\loading_pic.png'),0,0,650,450,false,true);
     
449.   
     
450.   progressbgImgbk:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\loadingbk.png'),0,375,650,15,True,True);
     
451.   progressbgImg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\loading.png'),0,375,0,0,True,True);
     
452. 
     
453.   b1:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\loading_pic1.png'),0,0,650,374,true,true);    //加载图片必备的
     
454.   b2:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\loading_pic2.png'),0,0,650,374,true,true);
     
455.   b3:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\loading_pic3.png'),0,0,650,374,true,true);
     
456.   b4:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\loading_pic4.png'),0,0,650,374,true,true);
     
457. 
     
458.   
     
459.   t1:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\loading_pic1.png'),0,0,650,374,true,true);    //加载图片必备的
     
460.   t2:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\loading_pic2.png'),0,0,650,374,true,true);
     
461.   t3:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\loading_pic3.png'),0,0,650,374,true,true);
     
462.   t4:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\loading_pic4.png'),0,0,650,374,true,true);
     
463. 
     
464.    
     
465. 
     
466. 
     
467.   ImgSetVisibility(t1,false)     //出现动画时 第一张显示的图片   下面几张禁用的
     
468.   ImgSetVisibility(t2,false)
     
469.   ImgSetVisibility(t3,false)
     
470.   ImgSetVisibility(t4,false)
     
471.   
     
472.   ImgSetVisibility(b1,false)     //出现动画时 第一张显示的图片   下面几张禁用的
     
473.   ImgSetVisibility(b2,false)
     
474.   ImgSetVisibility(b3,false)
     
475.   ImgSetVisibility(b4,false)
     
476.   
     
477.   BtnSetVisibility(btn_setup,false);
     
478.   Timer1.Interval:=50
     
479.   end
     
480.   if CurPageID = wpFinished then
     
481.   begin
     
482.    Timer1.Interval:=0
     
483.    ImgSetVisibility(progressbgImgbk,false)
     
484.    ImgSetVisibility(progressbgImg,false)
     
485.    btn_setup:=BtnCreate(WizardForm.Handle,245,358,160,50,ExpandConstant('{tmp}\btn_complete.png'),1,False)
     
486.    BtnSetEvent(btn_setup,BtnClickEventID,WrapBtnCallback(@btn_setupclick,1));
     
487.    
     
488.     BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\finish_bg.png'),0,0,650,450,false,true);
     
489.    
     
490.    saveMyDirRadio:=BtnCreate(WizardForm.Handle,50,300,15,15,ExpandConstant('{tmp}\checkbox.png'),4,TRUE)
     
491.    saveCustomDirRadio:=BtnCreate(WizardForm.Handle,50,340,15,15,ExpandConstant('{tmp}\checkbox.png'),4,TRUE)
     
492.    
     
493.    
     
494.    label1:= TLabel.Create(WizardForm);
     
495.     with label1 do
     
496.     begin
     
497.     Parent := WizardForm;
     
498.     Caption := '运行有道笔记';
     
499.     Font.Name:='宋体'
     
500.     Transparent := TRUE;
     
501.     SetBounds(70 ,301,200,12)
     
502.    
     
503.     end;
     
504.    
     
505. 
     
506.    label2:= TLabel.Create(WizardForm);
     
507.     with label2 do
     
508.     begin
     
509.     Parent := WizardForm;
     
510.     Caption := '了解网页剪报功能';
     
511.     Font.Name:='宋体'
     
512.     Transparent := TRUE;
     
513.     SetBounds(70 ,341,200,12)
     
514. 
     
515.     end;
     
516.    
     
517.   end
     
518.   
     
519.   ImgApplyChanges(WizardForm.Handle)
     
520. end;
     
521. 
     
522. function ShouldSkipPage(PageID: Integer): Boolean;
     
523. begin
     
524.     if (PageID=wpSelectComponents)  then    //跳过组件安装界面
     
525.     result := true;
     
526. end;
     

复制代码

Inno Setup 仿有道云安装包界面.zip