注册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.   
  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  

posted on 2013-08-02 21:34 NET未来之路 阅读(...) 评论(...) 编辑 收藏

转载于:https://www.cnblogs.com/lonelyxmas/p/3233554.html