注册flash.ocx inno setup (转)

时间：2023-03-10 07:08:56
注册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

相关文章