仿QQ安装

admin

1. ; 脚本由 Inno Setup 脚本向导 生成！
   
2. ; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！
   
3. 
   
4. #define MyAppName "RemoteCard"
   
5. #define MyAppVersion "1.0"
   
6. #define MyAppPublisher "RemoteCard"
   
7. #define MyAppURL "http://www.example.com/"
   
8. #define MyAppExeName "RemoteCard.exe"
   
9. 
   
10. [Setup]
    
11. ; 注: AppId的值为单独标识该应用程序。
    
12. ; 不要为其他安装程序使用相同的AppId值。
    
13. ; (生成新的GUID，点击 工具|在IDE中生成GUID。)
    
14. AppId={{C19C0F44-A8D2-4863-AFAA-AED21E50C603}
    
15. AppName={#MyAppName}
    
16. AppVersion={#MyAppVersion}
    
17. AppPublisher={#MyAppPublisher}
    
18. AppPublisherURL={#MyAppURL}
    
19. AppSupportURL={#MyAppURL}
    
20. AppUpdatesURL={#MyAppURL}
    
21. DefaultDirName={pf}\{#MyAppName}
    
22. DisableProgramGroupPage=yes
    
23. OutputDir=app
    
24. OutputBaseFilename=RemoteCard
    
25. SetupIconFile=tmp\RemoteCard.ico
    
26. Compression=lzma
    
27. SolidCompression=yes
    
28. 
    
29. [Languages]
    
30. Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"
    
31. 
    
32. [Tasks]
    
33. Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: checkablealone; OnlyBelowVersion: 0,8.1
    
34. 
    
35. [Files]
    
36. Source: "RemoteCard.exe"; DestDir: "{app}"; Flags: ignoreversion
    
37. Source: "jre\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
    
38. Source: "tmp\*"; DestDir: "{tmp}"; Flags: dontcopy solidbreak ; Attribs: hidden system
    
39. ; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”
    
40. 
    
41. [Icons]
    
42. //开始菜单快捷方式
    
43. Name: "{commonprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
    
44. //桌面快捷方式
    
45. Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
    
46. //开始菜单卸载程序
    
47. Name: {commonprograms}\卸载 {#MyAppName}; Filename:{uninstallexe}; WorkingDir: {app};
    
48. 
    
49. 
    
50. [Run]
    
51. Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
    
52. 
    
53. 
    
54. [code]
    
55. #include  'dll.iss'
    
56. 
    
57. 
    
58. var
    
59.   label2,label3:TLabel;
    
60.   BGimg:longint;
    
61.   btn_next,licenseBtn,MinBtn,CancelBtn,btn_cancel,btn_Browser,btn_setup,dirback,btnBack:HWND;
    
62.   pathEdit:tedit;
    
63.   licenseImg,progressbgImgbk,progressbgImg,PBOldProc:longint;
    
64.   Timer1: TTimer;
    
65.   licenseCheck:HWND;
    
66.   licenseRich:TRichEditViewer;
    
67. 
    
68. Function desktop(): Boolean;
    
69. begin
    
70.   Result :=true;
    
71. end;
    
72. 
    
73. 
    
74. procedure btn_cancelclick(hBtn:HWND);
    
75. begin
    
76. WizardForm.CancelButton.Click;
    
77. end;
    
78. 
    
79.   //浏览选择安装目录按钮
    
80. procedure btn_Browserclick(hBtn:HWND);
    
81. begin
    
82.   WizardForm.DirBrowseButton.Click;
    
83.   pathEdit.text := WizardForm.DirEdit.text;
    
84. end;
    
85. 
    
86. //返回按钮
    
87. procedure dirbackclick(hBtn:HWND);
    
88. begin
    
89.   WizardForm.BackButton.Click;
    
90.   label2.Show;
    
91.   licenseRich.Height:=0;
    
92.   ImgSetVisibility(BGimg,false);
    
93.   BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\bg1.png'),0,0,590,300,false,true);
    
94.   ImgApplyChanges(WizardForm.Handle);
    
95.   label3.Hide;
    
96.   pathEdit.Hide;
    
97.   BtnSetVisibility(btn_Browser,false);
    
98.   BtnSetVisibility(btn_setup,false);
    
99.   BtnSetVisibility(dirback,false);
    
100.   BtnSetVisibility(licenseCheck,true);
     
101.   BtnSetVisibility(licenseBtn,true);
     
102.   BtnSetVisibility(btn_next,true);
     
103. end;
     
104. 
     
105. //立即安装按钮
     
106. procedure btn_setupclick(hBtn:HWND);
     
107. begin
     
108.   WizardForm.NextButton.Click;
     
109. 
     
110.   WizardForm.NextButton.Click;
     
111. end;
     
112. 
     
113. procedure pathEditChange(Sender: TObject);
     
114. begin
     
115.   WizardForm.DirEdit.text:=pathEdit.Text ;
     
116. end;
     
117. 
     
118. //下一步按钮
     
119. procedure btn_nextclick(hBtn:HWND);
     
120. begin
     
121.   WizardForm.NextButton.Click;
     
122.   licenseRich.Height:=0;
     
123.   ImgSetVisibility(BGimg,false);
     
124.   BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\chcek_dir.png'),0,0,590,100,false,true);
     
125.   ImgApplyChanges(WizardForm.Handle);
     
126.   label3.Show;
     
127.   label2.Hide;
     
128.   label3.Caption:='安装位置';
     
129.   pathEdit.show;
     
130.   BtnSetVisibility(btn_Browser,true);
     
131.   BtnSetVisibility(btn_setup,true);
     
132.   BtnSetVisibility(dirback,true);
     
133.   BtnSetVisibility(licenseCheck,false)
     
134.   BtnSetVisibility(licenseBtn,false)
     
135.   BtnSetVisibility(btn_next,false)
     
136. end;
     
137. 
     
138. //用户协议的勾选框
     
139. procedure check_licenseclick(hBtn:HWND);
     
140. begin
     
141.     if BtnGetChecked(licenseCheck)=true then
     
142.     begin
     
143.        BtnSetEnabled(btn_next,true)
     
144.     end
     
145.     else
     
146.     begin
     
147.        BtnSetEnabled(btn_next,false)
     
148.     end
     
149. end;
     
150. 
     
151.   //点击阅读协议按钮
     
152. procedure locklicenseclick(hBtn:HWND);
     
153. begin
     
154.   label2.Hide;
     
155.   licenseRich.Height:=250
     
156.   ImgSetVisibility(BGimg,false);
     
157.   BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\bg_license.png'),0,0,590,100,false,true);
     
158.   ImgApplyChanges(WizardForm.Handle);
     
159.   BtnSetVisibility(licenseCheck,false)
     
160.   BtnSetVisibility(licenseBtn,false)
     
161.   BtnSetVisibility(btn_next,false)
     
162.   BtnSetVisibility(btn_setup,false)
     
163.   BtnSetVisibility(dirback,true);
     
164. end;
     
165. 
     
166. //进度条
     
167. function PBProc(h:hWnd;Msg,wParam,lParam:Longint):Longint;
     
168. var
     
169.   pr,i1,i2 : Extended;
     
170.   w : integer;
     
171. begin
     
172.   Result:=CallWindowProc(PBOldProc,h,Msg,wParam,lParam);
     
173.   if (Msg=$402) and (WizardForm.ProgressGauge.Position>WizardForm.ProgressGauge.Min) then
     
174.   begin
     
175.     i1:=WizardForm.ProgressGauge.Position-WizardForm.ProgressGauge.Min;
     
176.     i2:=WizardForm.ProgressGauge.Max-WizardForm.ProgressGauge.Min;
     
177.     pr:=i1*100/i2;
     
178.     w:=Round(530*pr/100);
     
179.     ImgSetPosition(progressbgImg,30,195,w,15);
     
180.     ImgSetVisiblePart(progressbgImg,30,0,w,15);
     
181.     ImgApplyChanges(WizardForm.Handle);
     
182.   end;
     
183. end;
     
184. 
     
185. procedure InitializeWizard();
     
186. begin
     
187.   WizardForm.OuterNotebook.hide;
     
188.   WizardForm.Bevel.Hide;
     
189.   WizardForm.Position:=poDesktopCenter;
     
190.   WizardForm.Width:=590;
     
191.   WizardForm.Height:=475;
     
192.   WizardForm.Color:=clWhite ;
     
193. 
     
194.   ExtractTemporaryFile('bg1.png');
     
195.   ExtractTemporaryFile('btn_next.png');
     
196.   ExtractTemporaryFile('checkbox.png');
     
197.   ExtractTemporaryFile('license.png');
     
198. 
     
199.   ExtractTemporaryFile('chcek_dir.png');
     
200.   ExtractTemporaryFile('btn_Browser.png');
     
201.   ExtractTemporaryFile('back.png');
     
202.   ExtractTemporaryFile('btn_steup.png');
     
203. 
     
204.   ExtractTemporaryFile('bg_license.png');
     
205.   ExtractTemporaryFile('license.rtf');
     
206. 
     
207.   ExtractTemporaryFile('loading_pic.png');
     
208.   ExtractTemporaryFile('btn_cancel.png');
     
209.   ExtractTemporaryFile('loading.png');
     
210. 
     
211.   ExtractTemporaryFile('btn_complete.png');
     
212.   ExtractTemporaryFile('finish_bg.png');
     
213. 
     
214.   //浏览按钮
     
215.   btn_Browser:=BtnCreate(WizardForm.Handle,480,180,80,31,ExpandConstant('{tmp}\btn_Browser.png'),1,false)
     
216.   BtnSetEvent(btn_Browser,BtnClickEventID,WrapBtnCallback(@btn_Browserclick,1));
     
217.   BtnSetVisibility(btn_Browser,false);
     
218. 
     
219.   //返回按钮
     
220.   dirback:=BtnCreate(WizardForm.Handle,490,385,68,29,ExpandConstant('{tmp}\back.png'),1,false)
     
221.   BtnSetEvent(dirback,BtnClickEventID,WrapBtnCallback(@dirbackclick,1));
     
222.   BtnSetVisibility(dirback,false);
     
223. 
     
224.   //立即安装
     
225.   btn_setup:=BtnCreate(WizardForm.Handle,400,385,80,29,ExpandConstant('{tmp}\btn_steup.png'),2,false)
     
226.   BtnSetEvent(btn_setup,BtnClickEventID,WrapBtnCallback(@btn_setupclick,1));
     
227.   BtnSetVisibility(btn_setup,false);
     
228. 
     
229.   //取消
     
230.   btn_cancel:=BtnCreate(WizardForm.Handle,490,380,68,29,ExpandConstant('{tmp}\btn_cancel.png'),2,false)
     
231.   BtnSetEvent(btn_cancel,BtnClickEventID,WrapBtnCallback(@btn_cancelclick,1));
     
232.   BtnSetVisibility(btn_cancel,false);
     
233. 
     
234.   //许可协议勾选框
     
235.   licenseCheck:=BtnCreate(WizardForm.Handle,30,375,15,15,ExpandConstant('{tmp}\checkbox.png'),1,true)
     
236.   BtnSetEvent(licenseCheck,BtnClickEventID,WrapBtnCallback(@check_licenseclick,1));
     
237.   BtnSetChecked(licenseCheck,true);
     
238. 
     
239.   //阅读许可协议
     
240.   licenseBtn:=BtnCreate(WizardForm.Handle,200,377,86,12,ExpandConstant('{tmp}\license.png'),1,false)
     
241.   BtnSetEvent(licenseBtn,BtnClickEventID,WrapBtnCallback(@locklicenseclick,1));
     
242. 
     
243.    //下一步
     
244.   btn_next:=BtnCreate(WizardForm.Handle,490,369,68,29,ExpandConstant('{tmp}\btn_next.png'),1,false)
     
245.   BtnSetEvent(btn_next,BtnClickEventID,WrapBtnCallback(@btn_nextclick,4));
     
246. 
     
247.   label2:= TLabel.Create(WizardForm);
     
248.   with label2 do
     
249.   begin
     
250.   Parent := WizardForm;
     
251.   Caption := '我已阅读同意EIP7远程打卡';
     
252.   Font.Size:=9;
     
253.   Font.Name:='微软雅黑'
     
254.   Color := $00666666
     
255.   Transparent := TRUE;
     
256.   SetBounds(52 ,375,200,20)
     
257.   end;
     
258. 
     
259.   //安装过程中的提示
     
260.   label3:= TLabel.Create(WizardForm);
     
261.   with label3 do
     
262.   begin
     
263.   Parent := WizardForm;
     
264.   Caption := '';
     
265.   Font.Size:=12;
     
266.   Font.Name:='微软雅黑'
     
267.   Color := $00666666
     
268.   Transparent := TRUE;
     
269.   SetBounds(30 ,145,200,20)
     
270.   end;
     
271. 
     
272.   //安装路径，默认不显示
     
273.   pathEdit:= TEdit.Create(WizardForm);
     
274.   with pathEdit do
     
275.   begin
     
276.     Parent := WizardForm;
     
277.     text :=WizardForm.DirEdit.text;
     
278.     Font.Name:='微软雅黑'
     
279.     Font.Color:=$00666666
     
280.     SetBounds(30,181,440,35);
     
281.     OnChange:=@pathEditChange;
     
282.     Color := $00ffffff
     
283.     TabStop :=false;
     
284.      Font.Size:=12;
     
285.   end;
     
286.   pathEdit.Hide;
     
287.   pathEdit.AutoSelect:=true;
     
288. 
     
289.    //加载许可协议
     
290.   licenseRich:= TRichEditViewer.Create(WizardForm);
     
291.   with licenseRich do
     
292.   begin
     
293.   Parent := WizardForm;
     
294.   ReadOnly:= true;
     
295.   SCROLLBARS:= ssVertical;
     
296.   font.Name:='微软雅黑'
     
297.   Color:=clWhite;
     
298.   SetBounds(30,120,530,250)
     
299.   Lines.LoadFromFile(ExpandConstant('{tmp}\license.rtf'));
     
300.   TabStop:=false;
     
301.   Height := 0;
     
302.   end;
     
303. 
     
304. 
     
305.   PBOldProc:=SetWindowLong(WizardForm.ProgressGauge.Handle,-4,PBCallBack(@PBProc,4));
     
306.   Timer1 := TTimer.Create(WizardForm);
     
307. end;
     
308. 
     
309. 
     
310. //该过程在安装终止时被调用，注意及时在用户没有安装任何文件之前退出也会被调用。
     
311. procedure DeinitializeSetup();
     
312. begin
     
313.   gdipShutdown;
     
314. end;
     
315. 
     
316. 
     
317. procedure CurPageChanged(CurPageID: Integer);
     
318. begin
     
319.   //把原始的按钮屏蔽掉
     
320.   WizardForm.NextButton.Visible:=false;
     
321.   WizardForm.CancelButton.Height:=0;
     
322.   WizardForm.BackButton.Height:=0;
     
323. 
     
324.    //进入安装界面
     
325.   if CurPageID=wpWelcome then
     
326.   begin
     
327. 
     
328.    WizardForm.NextButton.Click;
     
329.    //背景图片
     
330.   BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\bg1.png'),0,0,590,314,false,true);
     
331.   WizardForm.Width:=590;
     
332.   WizardForm.Show;
     
333.   end
     
334. 
     
335.   //正在安装
     
336.   if CurPageID = wpInstalling then
     
337.   begin
     
338.   pathEdit.Hide;
     
339.   BtnSetVisibility(btn_Browser,false)
     
340.   WizardForm.Height:=460
     
341.   BtnSetVisibility(dirback,false)
     
342.   BtnSetVisibility(licenseBtn,false);
     
343.   BtnSetVisibility(licenseCheck,false);
     
344.   BtnSetVisibility(btn_cancel,true);
     
345.   ImgSetVisibility(BGimg,false);
     
346.   BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\loading_pic.png'),0,0,590,105,false,true);
     
347.   progressbgImg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\loading.png'),30,195,0,0,True,True);
     
348.   BtnSetVisibility(btn_setup,false);
     
349.   label2.Hide;
     
350.   label3.Show;
     
351.   label3.Caption:='正在安装...';
     
352.   label3.SetBounds(30,145,200,20);
     
353.   label3.Font.Size:=16;
     
354.   Timer1.Interval:=500;
     
355.   end
     
356. 
     
357.   //安装完成
     
358.   if CurPageID = wpFinished then
     
359.   begin
     
360.   Timer1.Interval:=0
     
361.   ImgSetVisibility(progressbgImgbk,false)
     
362.   ImgSetVisibility(progressbgImg,false)
     
363.   btn_setup:=BtnCreate(WizardForm.Handle,180,354,230,47,ExpandConstant('{tmp}\btn_complete.png'),2,false)
     
364.   BtnSetEvent(btn_setup,BtnClickEventID,WrapBtnCallback(@btn_setupclick,1));
     
365.   BGimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\finish_bg.png'),0,0,590,315,false,true);
     
366.   label3.Hide;
     
367.   label2.Hide;
     
368.   BtnSetVisibility(btn_cancel,false);
     
369.   end
     
370. 
     
371.   ImgApplyChanges(WizardForm.Handle)
     
372. end;
     
373. 
     
374. function ShouldSkipPage(PageID: Integer): Boolean;
     
375. begin
     
376.     if (PageID=wpSelectComponents)  then    //跳过组件安装界面
     
377.     result := true;
     
378. end;
     
379. 
     
380. 
     

复制代码

全额附件下载

游客，本帖隐藏的内容需要积分高于 500 才可浏览，您当前积分为 0