Inno Setup 美化安装界面

Share

    实现该功能需要增强版。

1. ; Script generated by the Inno Setup Script Wizard.
   
2. ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
   
3. ; 该执行目录为 setup.iss 所在的目录，请注意拼接相对目录
   
4. 
   
5. #define MyAppName "_name_"
   
6. #define MyAppNameZh "_appName_"
   
7. #define MyAppVersion "_version_"
   
8. #define MyAppPublisher "_appPublisher_"
   
9. #define MyAppURL "_appURL_"
   
10. #define MyAppExeName "_name_.exe"
    
11. #define OutputPath "_outputPath_"
    
12. #define OutputFileName "_outputFileName_"
    
13. #define SourceMain "_filesPath_\_name_.exe"
    
14. #define SourceFolder "_filesPath_\*"
    
15. #define LicenseFilePath "_resourcesPath_\license.txt"
    
16. #define SetupIconFilePath "_resourcesPath_\logo.ico"
    
17. #define MyAppId "_appId_"
    
18. #define ResourcesPath "_resourcesPath_\*"
    
19. 
    
20. [setup]
    
21. ; NOTE: The value of AppId uniquely identifies this application.
    
22. ; Do not use the same AppId value in installers for other applications.
    
23. ; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
    
24. AppId={#MyAppId}
    
25. AppName={#MyAppName}
    
26. AppVersion={#MyAppVersion}
    
27. AppVerName={#MyAppName}
    
28. AppPublisher={#MyAppPublisher}
    
29. AppPublisherURL={#MyAppURL}
    
30. AppSupportURL={#MyAppURL}
    
31. AppUpdatesURL={#MyAppURL}
    
32. DefaultDirName={pf}\{#MyAppName}
    
33. LicenseFile={#LicenseFilePath}
    
34. OutputDir={#OutputPath}
    
35. OutputBaseFilename={#OutputFileName}
    
36. SetupIconFile={#SetupIconFilePath}
    
37. Compression=lzma
    
38. SolidCompression=yes
    
39. PrivilegesRequired=admin
    
40. Uninstallable=yes
    
41. UninstallDisplayName={#MyAppNameZh}
    
42. DefaultGroupName={#MyAppNameZh}
    
43. UninstallIconFile={#SetupIconFilePath}
    
44. Versioninfodescription={#MyAppName} 安装程序
    
45. versioninfocopyright=Copyright(c) 2017
    
46. VersionInfoProductName={#MyAppName}
    
47. DisableReadyPage=yes
    
48. DisableProgramGroupPage=yes
    
49. DirExistsWarning=no
    
50. DisableDirPage=yes
    
51. 
    
52. [Tasks]
    
53. Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: checkedonce
    
54. 
    
55. [Files]
    
56. Source: {#ResourcesPath}; DestDir: {tmp}; Flags: dontcopy solidbreak ; Attribs: hidden system
    
57. Source: {#SourceMain}; DestDir: "{app}"; Flags: ignoreversion
    
58. Source: {#SourceFolder}; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
    
59. 
    
60. [Messages]
    
61. SetupAppTitle={#MyAppName} 安装向导
    
62. SetupWindowTitle={#MyAppName} 安装向导
    
63. 
    
64. [Icons]
    
65. Name: "{commondesktop}\{#MyAppNameZh}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
    
66. Name: "{group}\{#MyAppNameZh}"; Filename: "{app}\{#MyAppExeName}"
    
67. Name: "{group}\卸载{#MyAppNameZh}"; Filename: "{uninstallexe}"
    
68. 
    
69. ; 中文汉化语言包
    
70. ; [Languages]
    
71. ; Name: "chinese"; MessagesFile: "_resourcesPath_\ChineseSimp.isl"
    
72. 
    
73. [Code]
    
74. // for dll
    
75. type
    
76.   TBtnEventProc = procedure (h:HWND);
    
77.   TPBProc = function(h:hWnd;Msg,wParam,lParam:Longint):Longint;  //百分比
    
78.   TTimerProc = procedure(h:longword; msg:longword; idevent:longword; dwTime:longword);
    
79. const
    
80.   Radius  = 9;
    
81.   GWL_EXSTYLE = (-20);
    
82.   //窗口移动
    
83.   WM_SYSCOMMAND = $0112;
    
84.   WS_EX_LAYERED = $80000;
    
85.   WS_EX_TRANSPARENT = $20;
    
86.   LWA_COLORKEY = 1;
    
87.   TransparentColor = clLime;  //要去掉的图片底色
    
88.   TransparentPercent = 80;
    
89.   BTN_MAX_PATH = 1024;
    
90. 
    
91.   BtnClickEventID      = 1;
    
92.   BtnMouseEnterEventID = 2;
    
93.   BtnMouseLeaveEventID = 3;
    
94.   BtnMouseMoveEventID  = 4;
    
95.   BtnMouseDownEventID  = 5;
    
96.   BtnMouseUpEventID    = 6;
    
97. 
    
98. //function WrapBtnCallback(Callback: TBtnEventProc; ParamCount: Integer): Longword;  external 'wrapcallback@files:innocallback.dll stdcall';
    
99. function  WrapTimerProc(callback: TTimerProc; Paramcount: Integer): Longword; external 'wrapcallback@files:innocallback.dll stdcall';
    
100. 
     
101. function  LoadCursorFromFile(FileName: String): Cardinal; external 'LoadCursorFromFile{#A}@user32 stdcall';
     
102. function  DeleteObject(p1: Longword): BOOL; external 'DeleteObject@gdi32.dll stdcall';
     
103. function  GetPM(nIndex:Integer):Integer; external 'GetSystemMetrics@user32.dll stdcall';
     
104. //botva2
     
105. function  ImgLoad(Wnd :HWND; FileName :PAnsiChar; Left, Top, Width, Height :integer; Stretch, IsBkg :boolean) :Longint; external 'ImgLoad@{tmp}\botva2.dll stdcall delayload';
     
106. procedure ImgSetVisibility(img :Longint; Visible :boolean); external 'ImgSetVisibility@{tmp}\botva2.dll stdcall delayload';
     
107. procedure ImgApplyChanges(h:HWND); external 'ImgApplyChanges@{tmp}\botva2.dll stdcall delayload';
     
108. procedure ImgSetPosition(img :Longint; NewLeft, NewTop, NewWidth, NewHeight :integer); external 'ImgSetPosition@files:botva2.dll stdcall';
     
109. procedure ImgRelease(img :Longint); external 'ImgRelease@{tmp}\botva2.dll stdcall delayload';
     
110. procedure gdipShutdown;  external 'gdipShutdown@{tmp}\botva2.dll stdcall delayload';
     
111. function  WrapBtnCallback(Callback: TBtnEventProc; ParamCount: Integer): Longword; external 'wrapcallback@{tmp}\innocallback.dll stdcall delayload';
     
112. function  BtnCreate(hParent:HWND; Left,Top,Width,Height:integer; FileName:PAnsiChar; ShadowWidth:integer; IsCheckBtn:boolean):HWND;  external 'BtnCreate@{tmp}\botva2.dll stdcall delayload';
     
113. procedure BtnSetText(h:HWND; Text:PAnsiChar);  external 'BtnSetText@{tmp}\botva2.dll stdcall delayload';
     
114. procedure BtnSetVisibility(h:HWND; Value:boolean); external 'BtnSetVisibility@{tmp}\botva2.dll stdcall delayload';
     
115. procedure BtnSetFont(h:HWND; Font:Cardinal); external 'BtnSetFont@{tmp}\botva2.dll stdcall delayload';
     
116. procedure BtnSetFontColor(h:HWND; NormalFontColor, FocusedFontColor, PressedFontColor, DisabledFontColor: Cardinal); external 'BtnSetFontColor@{tmp}\botva2.dll stdcall delayload';
     
117. procedure BtnSetEvent(h:HWND; EventID:integer; Event:Longword); external 'BtnSetEvent@{tmp}\botva2.dll stdcall delayload';
     
118. procedure BtnSetCursor(h:HWND; hCur:Cardinal); external 'BtnSetCursor@{tmp}\botva2.dll stdcall delayload';
     
119. procedure BtnSetEnabled(h:HWND; Value:boolean); external 'BtnSetEnabled@{tmp}\botva2.dll stdcall delayload';
     
120. function  GetSysCursorHandle(id:integer):Cardinal; external 'GetSysCursorHandle@{tmp}\botva2.dll stdcall delayload';
     
121. function  BtnGetChecked(h:HWND):boolean; external 'BtnGetChecked@{tmp}\botva2.dll stdcall delayload';
     
122. procedure BtnSetChecked(h:HWND; Value:boolean); external 'BtnSetChecked@{tmp}\botva2.dll stdcall delayload';
     
123. procedure CreateFormFromImage(h:HWND; FileName:PAnsiChar); external 'CreateFormFromImage@{tmp}\botva2.dll stdcall delayload';
     
124. procedure BtnSetPosition(h:HWND; NewLeft, NewTop, NewWidth, NewHeight: integer);  external 'BtnSetPosition@{tmp}\botva2.dll stdcall delayload';
     
125. function  SetLayeredWindowAttributes(hwnd:HWND; crKey:Longint; bAlpha:byte; dwFlags:longint ):longint;
     
126. external  'SetLayeredWindowAttributes@user32 stdcall'; //函数声明
     
127. function  SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
     
128. function  PBCallBack(P:TPBProc;ParamCount:integer):LongWord; external 'wrapcallback@files:innocallback.dll stdcall';
     
129. function  CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint; external 'CallWindowProcA@user32.dll stdcall';
     
130. procedure ImgSetVisiblePart(img:Longint; NewLeft, NewTop, NewWidth, NewHeight : integer); external 'ImgSetVisiblePart@files:botva2.dll stdcall';
     
131. function  SetTimer(hWnd: LongWord; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
     
132. function  KillTimer(hWnd: LongWord; nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';
     
133. function  GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';
     
134. function  ReleaseCapture(): Longint; external 'ReleaseCapture@user32.dll stdcall';
     
135. function  CreateRoundRectRgn(p1, p2, p3, p4, p5, p6: Integer): THandle; external 'CreateRoundRectRgn@gdi32 stdcall';
     
136. function  SetWindowRgn(hWnd: HWND; hRgn: THandle; bRedraw: Boolean): Integer; external 'SetWindowRgn@user32 stdcall';
     
137. procedure ShapeForm(aForm: TForm; edgeSize: integer); //圆角
     
138.   var
     
139.     FormRegion:LongWord;
     
140.   begin
     
141.     FormRegion:=CreateRoundRectRgn(0,0,aForm.Width,aForm.Height,edgeSize,edgeSize);
     
142.     SetWindowRgn(aForm.Handle,FormRegion,True);
     
143.   end;
     
144. 
     
145. // 安装前强制杀进
     
146. // 该函数在安装程序初始化时调用，返回False 将中断安装，True则继续安装.程
     
147. function InitializeSetup(): Boolean;
     
148.   var ErrorCode: Integer;
     
149.   begin
     
150.     ShellExec('open','taskkill.exe','/f /im {#MyAppExeName}','',SW_HIDE,ewNoWait,ErrorCode);
     
151.     ShellExec('open','tskill.exe',' {#MyAppName}','',SW_HIDE,ewNoWait,ErrorCode);
     
152.     result := True;
     
153.   end;
     
154. 
     
155. // 卸载前强制杀进程
     
156. function InitializeUninstall(): Boolean;
     
157.   var ErrorCode: Integer;
     
158.   begin
     
159.     ShellExec('open','taskkill.exe','/f /im {#MyAppExeName}','',SW_HIDE,ewNoWait,ErrorCode);
     
160.     ShellExec('open','tskill.exe',' {#MyAppName}','',SW_HIDE,ewNoWait,ErrorCode);
     
161.     result := True;
     
162.   end;
     
163. 
     
164. var
     
165.   BGimg:longint;
     
166.   btnShowLicense,MinBtn,CancelBtn,btnBrowser,btnSetup,btnBack:HWND;
     
167.   isWelcomePage:boolean;
     
168.   pathEdit:tedit;
     
169.   labelReadImg,licenseImg,progressbgImg,PBOldProc,labelAutoRunImg:longint;
     
170.   checkboxLicense,checkboxAutoRun:HWND;
     
171.   licenseRich:TRichEditViewer;
     
172. 
     
173. // 向导调用这个事件函数确定是否在所有页或不在一个特殊页 (用PageID 指定) 显示。如果返回True，将跳过该页；如果你返回False，该页被显示。
     
174. // 注意: 这个事件函数不被wpWelcome、wpPreparing 和wpInstalling 页调用，还有安装程序已经确定要跳过的页也不会调用
     
175. // wpWelcome, wpLicense, wpPassword, wpInfoBefore, wpUserInfo, wpSelectDir, wpSelectComponents, wpSelectProgramGroup, wpSelectTasks, wpReady, wpPreparing, wpInstalling, wpInfoAfter, wpFinished
     
176. function ShouldSkipPage(PageID: Integer): Boolean;
     
177.   begin
     
178.     if PageID=wpLicense then
     
179.       result:=true;
     
180.     if PageID=wpInfoBefore then
     
181.       result:=true;
     
182.     if PageID=wpUserInfo then
     
183.       result:=true;
     
184.     if PageID=wpSelectDir then
     
185.       result:=true;
     
186.     if PageID=wpSelectComponents then
     
187.       result:=true;
     
188.     if PageID=wpSelectProgramGroup then
     
189.       result:=true;
     
190.     if PageID=wpSelectTasks then
     
191.       result:=true;
     
192.   end;
     
193. 
     
194. // 关闭按钮
     
195. procedure CancelBtnOnClick(hBtn:HWND);
     
196.   begin
     
197.     WizardForm.CancelButton.Click;
     
198.   end;
     
199. 
     
200. // 最小化按钮
     
201. procedure MinBtnOnClick(hBtn:HWND);
     
202.   begin
     
203.     SendMessage(WizardForm.Handle,WM_SYSCOMMAND,61472,0);
     
204.   end;
     
205. 
     
206. // 浏览文件夹按钮
     
207. procedure btnBrowserclick(hBtn:HWND);
     
208.   begin
     
209.     WizardForm.DirBrowseButton.Click;
     
210.     pathEdit.text := WizardForm.DirEdit.text;
     
211.   end;
     
212. 
     
213. // 路径选择器 change
     
214. procedure pathEditChange(Sender: TObject);
     
215.   begin
     
216.     WizardForm.DirEdit.text:=pathEdit.Text ;
     
217.   end;
     
218. 
     
219. // 立即安装等按钮的操作就是不断地下一步
     
220. procedure nextSetpBtnClick(hBtn:HWND);
     
221.   begin
     
222.     WizardForm.NextButton.Click;
     
223.   end;
     
224. 
     
225. // 安装的进度条
     
226. function PBProc(h:hWnd;Msg,wParam,lParam:Longint):Longint;
     
227.   var
     
228.     pr,i1,i2 : Extended;
     
229.     w : integer;
     
230.   begin
     
231.     Result:=CallWindowProc(PBOldProc,h,Msg,wParam,lParam);
     
232.     if (Msg=$402) and (WizardForm.ProgressGauge.Position>WizardForm.ProgressGauge.Min) then
     
233.     begin
     
234.       i1:=WizardForm.ProgressGauge.Position-WizardForm.ProgressGauge.Min;
     
235.       i2:=WizardForm.ProgressGauge.Max-WizardForm.ProgressGauge.Min;
     
236.       pr:=i1*100/i2;
     
237.       w:=Round(650*pr/100);
     
238.       ImgSetPosition(progressbgImg,0,320,w,15);
     
239.       ImgSetVisiblePart(progressbgImg,0,0,w,15);
     
240.       ImgApplyChanges(WizardForm.Handle);
     
241.     end;
     
242.   end;
     
243. 
     
244. // 鼠标拖动
     
245. procedure WizardMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
     
246.   begin
     
247.     ReleaseCapture
     
248.     SendMessage(WizardForm.Handle, $0112, $F012, 0)
     
249.   end;
     
250. 
     
251. // 查看 license
     
252. procedure btnShowLicenseClick(hBtn:HWND);
     
253.   begin
     
254.     if isWelcomePage=true then
     
255.     begin
     
256.       licenseImg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\bg_license.png'),0,0,650,450,false,false);
     
257.       isWelcomePage:=false
     
258.       licenseRich.Height:=295
     
259.       BtnSetVisibility(checkboxLicense,false)
     
260.       BtnSetVisibility(btnShowLicense,false)
     
261.       BtnSetVisibility(btnSetup,false)
     
262.       BtnSetVisibility(btnBrowser,false)
     
263.       pathEdit.Hide
     
264.       BtnSetVisibility(btnBack,true)
     
265.     end else
     
266.     begin
     
267.       isWelcomePage:=true
     
268.       BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\bg_welcome.png'),0,0,650,450,false,true);
     
269.       labelReadImg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\label_read.png'),243,398,72,20,false,true);
     
270.       licenseRich.Height:=0
     
271.       BtnSetVisibility(checkboxLicense,true)
     
272.       BtnSetVisibility(btnShowLicense,true)
     
273.       BtnSetVisibility(btnSetup,true)
     
274.       ImgRelease(licenseImg)
     
275.       BtnSetVisibility(btnBrowser,true)
     
276.       pathEdit.show
     
277.       BtnSetVisibility(btnBack,false)
     
278.     end
     
279.       ImgApplyChanges(WizardForm.Handle)
     
280.   end;
     
281. 
     
282. // 勾选查看 license
     
283. procedure checkboxLicenseClick(hBtn:HWND);
     
284.   begin
     
285.     if BtnGetChecked(checkboxLicense)=true then
     
286.     begin
     
287.       BtnSetEnabled(btnSetup,true)
     
288.     end else
     
289.     begin
     
290.       BtnSetEnabled(btnSetup,false)
     
291.     end
     
292.   end;
     
293. 
     
294. // 该过程在开始的时候改变向导或者向导页，不要指望使用InitializeSetup函数实现改变向导页的功能，因为InitializeSetup函数触发时向导窗口并不存在。
     
295. procedure InitializeWizard();
     
296.   begin
     
297.     // 设置欢迎向导页的尺寸大小
     
298.     WizardForm.OuterNotebook.hide;
     
299.     WizardForm.Bevel.Hide;
     
300.     WizardForm.BorderStyle:=bsnone;
     
301.     WizardForm.Position:=poDesktopCenter;
     
302.     // WizardForm.Center;
     
303.     WizardForm.Width:=650;
     
304.     WizardForm.Height:=450;
     
305.     // WizardForm.Color:=clWhite;
     
306.     WizardForm.OnMouseDown:=@WizardMouseDown
     
307.     isWelcomePage:=true;
     
308.     // WizardForm.InnerNotebook.Hide;
     
309.     // wizardform.Color:=TransparentColor;
     
310. 
     
311.     // 加载资源到 tmp 临时目录
     
312.     ExtractTemporaryFile('bg_welcome.png');
     
313.     ExtractTemporaryFile('bg_installing.png');
     
314.     ExtractTemporaryFile('bg_license.png');
     
315.     ExtractTemporaryFile('label_read.png');
     
316.     ExtractTemporaryFile('label_license.png');
     
317.     ExtractTemporaryFile('license.txt');
     
318.     ExtractTemporaryFile('btn_close.png');
     
319.     ExtractTemporaryFile('btn_min.png');
     
320.     ExtractTemporaryFile('btn_back.png');
     
321.     ExtractTemporaryFile('btn_setup.png');
     
322.     ExtractTemporaryFile('btn_browser.png');
     
323.     ExtractTemporaryFile('checkbox.png');
     
324.     ExtractTemporaryFile('bg_finished.png');
     
325.     ExtractTemporaryFile('btn_complete.png');
     
326.     ExtractTemporaryFile('loading.png');
     
327.     ExtractTemporaryFile('label_autorun.png');
     
328. 
     
329.     // 关闭按钮样式
     
330.     CancelBtn:=BtnCreate(WizardForm.Handle,627,8,12,12,ExpandConstant('{tmp}\btn_close.png'),1,False)
     
331.     BtnSetEvent(CancelBtn,BtnClickEventID,WrapBtnCallback(@CancelBtnOnClick,1));
     
332.    
     
333.     // 最小化按钮样式
     
334.     MinBtn:=BtnCreate(WizardForm.Handle,607,8,12,12,ExpandConstant('{tmp}\btn_min.png'),1,False)
     
335.     BtnSetEvent(MinBtn,BtnClickEventID,WrapBtnCallback(@MinBtnOnClick,1));
     
336.    
     
337.     // 立即安装按钮样式
     
338.     btnSetup:=BtnCreate(WizardForm.Handle,195,340,260,44,ExpandConstant('{tmp}\btn_setup.png'),1,False)
     
339.     BtnSetEvent(btnSetup,BtnClickEventID,WrapBtnCallback(@nextSetpBtnClick,1));
     
340.    
     
341.     // 返回按钮样式
     
342.     btnBack:=BtnCreate(WizardForm.Handle,285,390,80,32,ExpandConstant('{tmp}\btn_back.png'),1,False)
     
343.     BtnSetEvent(btnBack,BtnClickEventID,WrapBtnCallback(@btnShowLicenseClick,1));
     
344.     BtnSetVisibility(btnBack,false)
     
345.    
     
346.     pathEdit:= TEdit.Create(WizardForm);
     
347.     with pathEdit do
     
348.     begin
     
349.       Parent:=WizardForm;
     
350.       text:=WizardForm.DirEdit.text;
     
351.       Font.Name:='宋体'
     
352.       BorderStyle:=bsNone;
     
353.       SetBounds(110,272,340,15)
     
354.       OnChange:=@pathEditChange;
     
355.       TabStop:=false;
     
356.     end;
     
357. 
     
358.     // 浏览按钮样式
     
359.     btnBrowser:=BtnCreate(WizardForm.Handle,470,262,80,32,ExpandConstant('{tmp}\btn_browser.png'),1,False)
     
360.     BtnSetEvent(btnBrowser,BtnClickEventID,WrapBtnCallback(@btnBrowserclick,1));
     
361. 
     
362.     PBOldProc:=SetWindowLong(WizardForm.ProgressGauge.Handle,-4,PBCallBack(@PBProc,4));
     
363. 
     
364.     // 查看 license 的文本区域
     
365.     licenseRich:= TRichEditViewer.Create(WizardForm);
     
366.     with licenseRich do
     
367.     begin
     
368.       Parent:=WizardForm;
     
369.       ReadOnly:=true;
     
370.       SCROLLBARS:=ssVertical;
     
371.       font.Name:='宋体'
     
372.       Color:=clWhite;
     
373.       BorderStyle:=bsNone;
     
374.       SetBounds(40,65,570,0)
     
375.       Lines.LoadFromFile(ExpandConstant('{tmp}\license.txt'));
     
376.       TabStop:=false;
     
377.     end;
     
378.    
     
379.     ImgApplyChanges(WizardForm.Handle)
     
380.   end;
     
381. 
     
382. // 该过程在安装终止时被调用，注意及时在用户没有安装任何文件之前退出也会被调用。
     
383. procedure DeinitializeSetup();
     
384.   var RCode: Integer;
     
385.   begin
     
386.     // 检查是否需要自动运行
     
387.     if BtngetChecked(checkboxAutoRun)=true then
     
388.     begin
     
389.       Exec(ExpandConstant('{app}\{#MyAppExeName}'),'','',SW_SHOW, ewNoWait,RCode);
     
390.     end
     
391. 
     
392.     gdipShutdown;
     
393.   end;
     
394. 
     
395. // 在新向导页 (由CurPageID 指定) 显示后调用。
     
396. procedure CurPageChanged(CurPageID: Integer);
     
397.   begin
     
398.     // 默认的流程按钮隐藏掉
     
399.     WizardForm.NextButton.Visible:=false;
     
400.     WizardForm.CancelButton.Height:=0;
     
401.     WizardForm.BackButton.Height:=0;
     
402. 
     
403.     if CurPageID=wpWelcome then
     
404.       begin
     
405.         BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\bg_welcome.png'),0,0,650,450,true,true);
     
406. 
     
407.         // license 提示
     
408.         checkboxLicense:=BtnCreate(WizardForm.Handle,220,400,16,16,ExpandConstant('{tmp}\checkbox.png'),1,true)
     
409.         BtnSetEvent(checkboxLicense,BtnClickEventID,WrapBtnCallback(@checkboxLicenseClick,1))
     
410. 
     
411.         // 默认勾选 阅读并同意
     
412.         BtnSetChecked(checkboxLicense,true)
     
413.         labelReadImg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\label_read.png'),243,398,72,20,false,true);
     
414.         btnShowLicense:=BtnCreate(WizardForm.Handle,320,398,117,20,ExpandConstant('{tmp}\label_license.png'),4,false)
     
415.         BtnSetEvent(btnShowLicense,BtnClickEventID,WrapBtnCallback(@btnShowLicenseClick,1))
     
416.         
     
417.         WizardForm.Width:=650;
     
418.         WizardForm.Height:=450;
     
419.         WizardForm.Show;
     
420.       end
     
421. 
     
422.     if CurPageID = wpInstalling then
     
423.       begin
     
424.         BtnSetPosition(checkboxLicense,560,421,75,15);
     
425.         pathEdit.Hide;
     
426.         BtnSetVisibility(btnBrowser,false)
     
427.         WizardForm.Height:=450
     
428.         BtnSetVisibility(btnShowLicense,false);
     
429.         BtnSetVisibility(checkboxLicense,false);
     
430.         BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\bg_installing.png'),0,0,650,450,false,true);
     
431.         
     
432.         progressbgImg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\loading.png'),0,320,0,0,True,True);
     
433. 
     
434.         BtnSetVisibility(btnSetup,false);
     
435.       end
     
436. 
     
437.     if CurPageID = wpFinished then
     
438.       begin
     
439.         ImgSetVisibility(progressbgImg,false)
     
440.         btnSetup:=BtnCreate(WizardForm.Handle,195,340,260,44,ExpandConstant('{tmp}\btn_complete.png'),1,False)
     
441.         BtnSetEvent(btnSetup,BtnClickEventID,WrapBtnCallback(@nextSetpBtnClick,1));
     
442. 
     
443.         BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\bg_finished.png'),0,0,650,450,false,true);
     
444. 
     
445.         // 是否自动运行
     
446.         checkboxAutoRun:=BtnCreate(WizardForm.Handle,275,400,16,16,ExpandConstant('{tmp}\checkbox.png'),1,true)
     
447.         labelAutoRunImg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\label_autorun.png'),295,398,84,20,false,true);
     
448. 
     
449.         // 默认勾选
     
450.         BtnSetChecked(checkboxAutoRun,true)
     
451. 
     
452.       end
     
453. 
     
454.     ImgApplyChanges(WizardForm.Handle)
     
455.   end;

复制代码