注册flash.ocx inno setup

1. ; 脚本由 Inno Setup 脚本向导 生成！  
2. ; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！  
3.   
4.   
5. #define MyAppName "xx模块"  
6. #define MyAppName2 "xx模块"  
7. #define MyAppName3 "xx系统"  
8. #define MyAppVersion "2012"  
9. #define IncludeFramework true  
10. #define IsExternal ""  
11. #define MyAppPublisher "xx有限公司"  
12. #define MyAppURL "http://www.k51.com.cn"  
13. #define MyAppExeName "EasyKao.exe"  
14.   
15.   
16. [Setup]  
17. ; 注: AppId的值为单独标识该应用程序。  
18. ; 不要为其他安装程序使用相同的AppId值。  
19. ; (生成新的GUID，点击 工具|在IDE中生成GUID。  
20. ;AppId值贮存于卸载日志文件 (unins???.dat) 内部  
21. AppId={{5E183C95-BC1B-4C44-98E2-F3020DF2AA28}  
22. ;程序名  
23. AppName={#MyAppName}  
24. ;版本号  
25. AppVersion={#MyAppVersion}  
26. ;发布者  
27. AppPublisher={#MyAppPublisher}  
28. ;发布者链接  
29. AppPublisherURL={#MyAppURL}  
30. AppSupportURL={#MyAppURL}  
31. AppUpdatesURL={#MyAppURL}  
32. ;自述文件  
33. ;InfoAfterFile=f:\打包测试\info.txt  
34. ;安装协议  
35. LicenseFile=f:\inno打包\license.txt  
36. ;版权消息  
37. AppCopyright=Copyright (C) 2011-2012 Qiuzhi Edu, Inc  
38. ShowComponentSizes=yes  
39. ;是否需要重启电脑  
40. RestartIfNeededByRun=no  
41.   
42.   
43. ;安装目录  
44. ;DefaultDirName={pf}\{#MyAppName2}  
45. DefaultDirName=d:\考无忧\{#MyAppName2}  
46. ;默认开始菜单栏  
47. DefaultGroupName={#MyAppName3}  
48. ;输出文件夹  
49. OutputDir=f:\inno打包\安装  
50. ;输出文件名  
51. OutputBaseFilename=k51_AUTOCAD2004  
52. ;安装的图标  
53. SetupIconFile=f:\inno打包\ico\AUTOCAD.ico  
54. ;压缩相关   
55. Compression=lzma  
56. SolidCompression=yes  
57. PrivilegesRequired=none  
58.   
59.   
60. ;背景图片(左边)  
61. WizardImageFile=f.bmp  
62. ;右上角图片  
63. ;WizardSmallImageFile=f.bmp   
64.   
65.   
66. [Languages]  
67. Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"  
68.   
69.   
70. [Tasks]  
71. Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: checkablealone; OnlyBelowVersion: 0,6.1  
72.   
73.   
74. [Files]  
75. Source: "f:\inno打包\x\net\Flash9f.ocx"; DestDir: "C:\WINDOWS\system32\Macromed\Flash"; Flags: ignoreversion {#IsExternal};  
76. ;Source: "f:\inno打包\x\net\FlashUtil9f.exe"; DestDir: "C:\WINDOWS\system32\Macromed\Flash"; Flags: ignoreversion {#IsExternal};  
77. ;Source: "f:\inno 打包\x\net\FlashUtil10u_ActiveX.dll"; DestDir: "C:\WINDOWS\system32 \Macromed\Flash"; Flags: ignoreversion {#IsExternal};  
78. ;Source: "f:\inno打包\x\net\FlashPlayerCPLApp.cpl"; DestDir: "C:\WINDOWS\system32"; Flags: ignoreversion {#IsExternal};  
79.   
80.   
81. Source: "D:\安装发布工作区\发布好的文件\AUTOCAD\*"; DestDir: "{app}"; Flags: ignoreversion {#IsExternal}  
82. Source: "D:\安装发布工作区\发布好的文件\AUTOCAD\data\*"; DestDir: "{app}\data"; Flags: ignoreversion {#IsExternal}   
83. ;Source: "D:\打包测试\x\EasyKao.exe"; DestDir: "{app}"; Flags: sharedfile  
84. ;如果IncludeFramework为真则解压到安装目录（但事实上似乎没有用这个）  
85. #if IncludeFramework  
86. ;Check：NeedsFramework，检查这个函数，是否返回真，如果为真，则解压到安装目录  
87. Source: "f:\inno打包\x\net\dotnetfx.exe"; DestDir: "{app}\net"; Flags: ignoreversion {#IsExternal}; Check: NeedsFramework  
88. #endif  
89. ;注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”，意为不比较版本信息  
90.   
91.   
92. [Icons]  
93. Name: "{group}\{#MyAppName2}"; Filename: "{app}\{#MyAppExeName}"  
94. Name: "{commondesktop}\{#MyAppName2}"; Filename: "{app}\{#MyAppExeName}"  
95.   
96. [Run]  
97. Filename: "{app}\EasyKao.exe"; Description: "立即运行"; Flags: postinstall nowait skipifsilent   
98. ;如果IncludeFramework为真则安装这个文件  
99. #if IncludeFramework  
100. ;静默安装参数Parameters: "/q:a /c:""install /l /q"""  
101. Filename: {app}\net \dotnetfx.exe; Parameters: "/q:a /c:""install /l /q"""; WorkingDir: {tmp}; Flags: skipifdoesntexist; StatusMsg: " 正在安装软件所需环境，预计需要等待3分钟……"  
102. #endif  
103. Filename: regsvr32; Parameters: "c:\windows\system32\macromed\flash\flash9f.ocx /s";  
104.   
105.   
106. [code]  
107. //默认选择同意  
108. procedure InitializeWizard();  
109. begin  
110. WizardForm.LICENSEACCEPTEDRADIO.Checked := true;  
111. end;  
112.   
113.   
114. // Indicates whether .NET Framework 2.0 is installed.  
115. function IsDotNET40Detected(): boolean;  
116. var  
117. success: boolean;  
118. install: DWord;  
119. begin  
120. success := RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Client','Install',install)  
121. if success and (install = 1)then  
122. begin  
123. Result := true;   
124. end   
125. ELSE   
126. begin  
127. success := RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5', 'Install', install)  
128. if success and (install = 1)then  
129. begin  
130. Result := true;   
131. end   
132. else  
133. begin  
134. success := RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0', 'Install', install)  
135. if success and (install = 1)then  
136. begin  
137. Result := true;   
138. end   
139. else  
140. begin  
141. success := RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727', 'Install', install)  
142. if success and (install = 1)then  
143. begin  
144. Result := true;   
145. end  
146. else  
147. Result:=false;  
148.   
149. end;   
150. end;  
151. end;  
152. end;   
153.   
154.   
155. //检测是否需要安装.netframework  
156. function NeedsFramework(): Boolean;  
157. begin  
158. Result := (IsDotNET40Detected = false);  
159. end;   
160.   
161.   
162.   
163. //egValueExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayer','CurrentVersion')  
164. [Registry]   
165. Root: HKLM; Subkey: "Software\Macromedia\FlashPlayer"; ValueData:"9,0,124,0"; ValueName:"CurrentVersion"; ValueType:"String";Flags: uninsdeletekeyifempty  
166. Root: HKLM; Subkey: "SOFTWARE\Macromedia\FlashPlayerActiveX"; ValueData:"C:\WINDOWS\system32\Macromed\Flash"; ValueName:"Path"; ValueType:"String";Flags: uninsdeletekeyifempty  
167. Root: HKLM; Subkey: "SOFTWARE\Macromedia\FlashPlayerActiveX"; ValueData:"C:\WINDOWS\system32\Macromed\Flash\Flash9f.ocx"; ValueName:"PlayerPath"; ValueType:"String";Flags: uninsdeletekeyifempty  
168.   
169.   
170. ;Root: HKLM; Subkey: "SOFTWARE\Macromedia\FlashPlayerActiveX"; ValueData:"C:\WINDOWS\system32\Macromed\Flash\FlashUtil10u_ActiveX.exe"; ValueName:"UninstallerPath"; ValueType:"String";Flags: uninsdeletekeyifempty  
171. Root: HKLM; Subkey: "SOFTWARE\Macromedia\FlashPlayerActiveX"; ValueData:"10.3.181.34"; ValueName:"Version"; ValueType:"String";Flags: uninsdeletekeyifempty  
172. Root: HKLM; Subkey: "SOFTWARE\Macromedia\FlashPlayerActiveX\Components"; ValueData:"1"; ValueName:"Main"; ValueType:"String";Flags: uninsdeletekeyifempty  
173.   
174.   
175. ;Root: HKLM; Subkey: "SOFTWARE\Microsoft\Active Setup\Installed Components\{{D27CDB6E-AE6D-11CF-96B8-444553540000}"; ValueData:"Adobe Flash Player"; ValueName:""; ValueType:"string";Flags: uninsdeletekeyifempty  
176. ;Root: HKLM; Subkey: "SOFTWARE\Microsoft\Active Setup\Installed Components\{{D27CDB6E-AE6D-11CF-96B8-444553540000}"; ValueData:"Flash"; ValueName:"ComponentID"; ValueType:"string";Flags: uninsdeletekeyifempty  
177. ;Root: HKLM; Subkey: "SOFTWARE\Microsoft\Active Setup\Installed Components\{{D27CDB6E-AE6D-11CF-96B8-444553540000}"; ValueData:"01 00 00 00"; ValueName:"IsInstalled"; ValueType:"string";Flags: uninsdeletekeyifempty  
178. ;Root: HKLM; Subkey: "SOFTWARE\Microsoft\Active Setup\Installed Components\{{D27CDB6E-AE6D-11CF-96B8-444553540000}"; ValueData:"10.0.32.18"; ValueName:"Version"; ValueType:"string";Flags: uninsdeletekeyifempty  
179. ;Root: HKLM; Subkey: "SOFTWARE\Microsoft\Active Setup\Installed Components\{{D27CDB6E-AE6D-11CF-96B8-444553540000}"; ValueData:"EN"; ValueName:"Locale"; ValueType:"string";Flags: uninsdeletekeyifempty  
180.   
181.   
182. ;Root: HKLM; Subkey: "SOFTWARE\Macromedia\FlashPlayer\SafeVersions"; ValueData:11862050; ValueName:"10.0"; ValueType:"dword";Flags: uninsdeletekeyifempty  
183. Root: HKLM; Subkey: "SOFTWARE\Macromedia\FlashPlayer\SafeVersions"; ValueData:8126464; ValueName:"9.0"; ValueType:"dword";Flags: uninsdeletekeyifempty  
184. Root: HKLM; Subkey: "SOFTWARE\Macromedia\FlashPlayer\SafeVersions"; ValueData:42; ValueName:"8.0"; ValueType:"dword";Flags: uninsdeletekeyifempty  
185. Root: HKLM; Subkey: "SOFTWARE\Macromedia\FlashPlayer\SafeVersions"; ValueData:73; ValueName:"7.0"; ValueType:"dword";Flags: uninsdeletekeyifempty  
186. Root: HKLM; Subkey: "SOFTWARE\Macromedia\FlashPlayer\SafeVersions"; ValueData:88; ValueName:"6.0"; ValueType:"dword";Flags: uninsdeletekeyifempty