注册flash.ocx inno setup (转)

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