一个比较完整的Inno Setup 安装脚本(转)

一个比较完整的Inno Setup 安装脚本，增加了对ini文件设置的功能，一个安装包常用的功能都具备了。

 

  1. [Setup]
  2. ; 注: AppId的值为单独标识该应用程序。
  3. ; 不要为其他安装程序使用相同的AppId值。
  4. ; (生成新的GUID，点击 工具|在IDE中生成GUID。)
  5. AppId={{A9861883-31C5-4324-BD9A-DC3271EEB675}
  6. ;程序名
  7. AppName=ISsample
  8. ;版本号
  9. AppVerName=ISsample 1.0.0.0
  10. ;发布者名
  11. AppPublisher=Hkiss
  12. ;相关连接
  13. AppPublisherURL=http://zwkufo.blog.163.com
  14. AppSupportURL=http://zwkufo.blog.163.com
  15. AppUpdatesURL=http://zwkufo.blog.163.com
  16. ;默认安装目录
  17. DefaultDirName={pf}\ISsample
  18. ;默认开始菜单名
  19. DefaultGroupName=ISsample
  20. ;是否打开->可选安装开始菜单项
  21. ;AllowNoIcons=yes
  22. ;安装协议
  23. ;LicenseFile=C:\Example\原始文件\agreement.txt
  24. ;安装前查看的文本文件
  25. ;InfoBeforeFile=C:\Example\原始文件\Setup_New.txt
  26. ;安装后查看文本文件
  27. ;InfoAfterFile=C:\Example\原始文件\Setup_Old.txt
  28. ;输出文件夹
  29. OutputDir=C:\Example\InnoSetup\out
  30. ;输出文件名
  31. OutputBaseFilename=setup
  32. ;安装图标
  33. SetupIconFile=C:\Example\原始文件\title.ico
  34. ;安装需要输入密码
  35. ;Password=123
  36. ;Encryption=yes
  37. ;压缩相关
  38. Compression=lzma
  39. SolidCompression=yes
  40. ;可以让用户忽略选择语言相关
  41. ShowLanguageDialog = yes
  42. ;备注版本信息
  43. VersionInfoCompany=HTTP://www.Hkiss.COM
  44. VersionInfoDescription=ISsample 汉化增强版
  45. VersionInfoVersion=1.0.0.0
  46. VersionInfoCopyright=Copyright (C) 2007-2008 Hkiss
  47. ;制作选择语言
  48. [Languages]
  49. Name: "chs"; MessagesFile: "compiler:Default.isl" ;LicenSeFile :"C:\Example\原始文件\chs\agreement.txt"
  50. Name: "en"; MessagesFile: "compiler:Languages\English.isl";LicenSeFile :"C:\Example\原始文件\en\agreement.txt"
  51. ;用户定制任务
  52. [Tasks]
  53. Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
  54. Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
  55. Name: "Tasks_1" ; Description:"用户自定义任务1"; Flags: unchecked
  56. Name: "Tasks_2" ; Description:"用户自定义任务2"; Flags: unchecked
  57. ;选择了组件才会出现的定制任务
  58. Name: "Tasks_3" ; Description:"用户自定义任务3";Components: c1 ; Flags: unchecked
  59. ;文件安装
  60. [Files]
  61. ;多语言安装环境设置    公共参数Languages 来设置
  62. Source: "C:\Example\原始文件\enfile.txt"; DestDir: "{app}"; Languages: en ; Flags: ignoreversion
  63. Source: "C:\Example\原始文件\chsfile.txt"; DestDir: "{app}"; Languages: chs ; Flags: ignoreversion
  64. ;用户自定义任务 Tasks
  65. Source: "C:\Example\原始文件\Tasks\tasks_1.txt"; DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks : Tasks_1
  66. Source: "C:\Example\原始文件\Tasks\tasks_2.txt"; DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks :Tasks_2
  67. Source: "C:\Example\原始文件\Tasks\tasks_Components.txt"; DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks :Tasks_2
  68. ;用户定义组件安装
  69. Source: "C:\Example\原始文件\Components\Components_1.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a1;
  70. Source: "C:\Example\原始文件\Components\Components_2.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a2;
  71. Source: "C:\Example\原始文件\Components\Components_3.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a3;
  72. Source: "C:\Example \原始文件\Components\Components_4.txt"; DestDir: "{app} \Components"; Flags: ignoreversion ; Components: a1 a2 a3;
  73. ;用户注册自定义Dll文件      regserver 注册 noregerror 不显示错误信息
  74. Source: "C:\Example\原始文件\jmail.dll"; DestDir: "{app}"; Flags: ignoreversion regserver
  75. ;添加自述文件
  76. Source: "C:\Example\原始文件\ISsample.txt"; DestDir: "{app}"; Flags: ignoreversion
  77. ;添加一个文件到缓存文件夹{Tmp} deleteafterinstall 安装后删除
  78. Source: "C:\Example\原始文件\test.exe"; DestDir: "{tmp}"; Flags: ignoreversion deleteafterinstall
  79. Source: "C:\Example\原始文件\ISsample.chm"; DestDir: "{app}"; Flags: ignoreversion
  80. Source: "C:\Example\原始文件\ISsample.exe"; DestDir: "{app}"; Flags: ignoreversion
  81. Source: "C:\Example\原始文件\ISsample.dll"; DestDir: "{app}"; Flags: ignoreversion
  82. Source: "C:\Example\原始文件\ISsample.ini"; DestDir: "{app}"; Flags: ignoreversion
  83. Source: "C:\Example\原始文件\ISsample.rar"; DestDir: "{app}"; Flags: ignoreversion
  84. Source: "C:\Example\原始文件\ISsample_sys.dll"; DestDir: "{win}\System32"; Flags: ignoreversion
  85. Source: "C:\Example\原始文件\log\*"; DestDir: "{app}\log"; Flags: ignoreversion recursesubdirs createallsubdirs
  86. ; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”
  87. ;安装类型设置
  88. [Types]
  89. Name: Full ;Description:"完全安装"; Flags: iscustom
  90. Name: Compact ;Description:"简洁安装";
  91. Name: Custom; Description:"自定义安装";
  92. ;组件安装
  93. [Components]
  94. Name: c1; Description: "自定义任务3" ; Types: Full
  95. Name: a1; Description: "安装Components_1"; Types: Full Compact Custom ;
  96. Name: a2; Description: "安装Components_2"; Types : Full   Compact
  97. Name: a3; Description: "安装Components_3"; Types : Full
  98. ;开始菜单，桌面快捷方式
  99. [Icons]
  100. Name: "{group}\ISsample"; Filename: "{app}\ISsample.exe"
  101. Name: "{group}\{cm:ProgramOnTheWeb,ISsample}"; Filename: "http://zwkufo.blog.163.com"
  102. Name: "{group}\{cm:UninstallProgram,ISsample}"; Filename: "{uninstallexe}"
  103. Name: "{commondesktop}\ISsample"; Filename: "{app}\ISsample.exe"; Tasks: desktopicon
  104. Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\ISsample"; Filename: "{app}\ISsample.exe"; Tasks: quicklaunchicon
  105. ;添加一个帮助文挡
  106. Name: {group}\ISsample 1.0.0.0 帮助文档;Filename: {app}\ISsample.chm
  107. ;用来在程序安装完成后 在安装程序显示最终对话框之前执行程序 常用与运行主程序 显示自述文件 删除临时文件
  108. [Run]
  109. Filename: "{app}\ISsample.exe"; Description: "{cm:LaunchProgram,ISsample}"; Flags: nowait postinstall skipifsilent
  110. Filename: "{app}\ISsample.txt"; Description: "查看显示自述文件"; Flags: postinstall skipifsilent shellexec
  111. ;更改显示在程序中显示的消息文本
  112. [Messages]
  113. BeveledLabel=HKiss科技
  114. ;卸载对话框说明
  115. ConfirmUninstall=您真的想要从电脑中卸载ISsample吗?%n%n按 [是] 则完全删除 %1 以及它的所有组件;%n按 [否]则让软件继续留在您的电脑上.
  116. ;定义解压说明
  117. ;StatusExtractFiles=解压并复制主程序文件及相关库文件...
  118. ;用于在用户系统中创建，修改或删除ini文件健值
  119. [INI]
  120. Filename: "{app}\cfg.ini"; Section: "Startup Options"; Flags: uninsdeletesection
  121. Filename: "{app}\cfg.ini"; Section: "Startup Options"; Key: "server ip"; String: "127.0.0.1"
  122. Filename: "{app}\cfg.ini"; Section: "Startup Options"; Key: "server port"; String: "8080"
  123. ;用于在用户系统中创建，修改或删除注册表健值
  124. [Registry]
  125. Root: HKLM ;SubKey:"Software\ISsample";ValueType:dword;ValueName:config;ValueData:10 ;Flags:uninsdeletevalue
  126. ;在执行脚本
  127. [code]
  128. //全局变量
  129. var MyProgChecked: Boolean;
  130. //判断程序是否存在
  131. //初始华程序事件
  132. function InitializeSetup(): boolean;
  133. var Isbl: boolean;         //声明变量
  134. var Isstr: string;
  135. begin       //开始
  136. Isbl := true;             //变量赋值
  137. Isstr := ‘欢迎‘;
  138. if RegValueExists(HKEY_LOCAL_MACHINE, ‘SOFTWARE\ISsample‘, ‘config‘) then
  139. begin
  140. MsgBox(‘已安装过，请先卸载在安装‘,mbConfirmation, MB_OK);
  141. isbl := false;
  142. end else
  143. begin
  144. //MsgBox(‘无值‘,mbConfirmation, MB_OK);
  145. isbl := true;
  146. end;
  147. //下面是个麻烦的 条件语句 end else 注意
  148. //if MsgBox(Isstr, mbConfirmation, MB_OKCANCEL) = IDOK then
  149. //begin
  150. // isbl := true;
  151. // MsgBox(‘执行了‘, mbConfirmation, MB_OK);
  152. //end else
  153. //begin
  154. // isbl := false;
  155. //MsgBox(‘执行了‘, mbConfirmation, MB_OK);
  156. //end;
  157. Result := Isbl;
  158. end;       //结束
  159. procedure CurStepChanged(CurStep: TSetupStep);
  160. var Isstr :string;
  161. begin
  162. if CurStep=ssInstall then       //实际安装前调用
  163. begin
  164. //MsgBox(‘CurStepChanged:实际安装前调用‘, mbConfirmation, MB_OKCANCEL);           //安装完成后调用
  165. end;
  166. if CurStep=ssPostInstall then
  167. begin
  168. Isstr := ExpandConstant(‘{tmp}\tmp.rar‘);
  169. //    if FileExists(Isstr) then
  170. //    begin
  171. //      MsgBox(‘文件存在‘,mbConfirmation, MB_OK);
  172. //    end else
  173. //    begin
  174. //      MsgBox(‘文件不存在‘,mbConfirmation, MB_OK);
  175. //    end;
  176. // MsgBox(‘CurStepChanged:实际安装后调用‘, mbConfirmation, MB_OKCANCEL);
  177. end;
  178. end;
  179. //下一步 按钮按钮 事件
  180. function NextButtonClick(CurPageID: Integer): Boolean;
  181. var ResultCode: Integer;
  182. var IsSetup : Boolean;
  183. begin
  184. IsSetup := true ;
  185. case CurPageID of
  186. wpSelectDir:
  187. MsgBox(‘NextButtonClick:‘ #13#13 ‘You selected: ‘‘‘ + WizardDirValue + ‘‘‘.‘, mbInformation, MB_OK);   //WizardDirValue 路径
  188. wpSelectProgramGroup:
  189. MsgBox(‘NextButtonClick:‘ #13#13 ‘You selected: ‘‘‘ + WizardGroupValue + ‘‘‘.‘, mbInformation, MB_OK); //开始菜单名
  190. wpReady:
  191. begin
  192. if not RegValueExists(HKEY_LOCAL_MACHINE, ‘SOFTWARE\Test‘, ‘config‘) then   begin
  193. if MsgBox(‘程序执行需要Test.ext,是否安装!‘, mbConfirmation, MB_YESNO) = idYes then begin
  194. ExtractTemporaryFile(‘test.exe‘);
  195. if not Exec(ExpandConstant(‘{tmp}\test.exe‘), ‘‘, ‘‘, SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode) then
  196. MsgBox(‘Test.exe出错:‘ #13#13 ‘ ‘ + SysErrorMessage(ResultCode) + ‘.‘, mbError, MB_OK);
  197. end else begin
  198. IsSetup := false ;
  199. end ;
  200. BringToFrontAndRestore();
  201. end;
  202. end;
  203. end;
  204. Result := IsSetup;
  205. end;
时间： 2024-10-28 07:39:34

一个比较完整的Inno Setup 安装脚本(转)的相关文章

一个比较完整的Inno Setup 安装脚本

一个比较完整的Inno Setup 安装脚本,增加了对ini文件设置的功能,一个安装包常用的功能都具备了. 1 [Setup] 2 ; 注: AppId的值为单独标识该应用程序. 3 ; 不要为其他安装程序使用相同的AppId值. 4 ; (生成新的GUID,点击 工具|在IDE中生成GUID.) 5 AppId={{A9861883-31C5-4324-BD9A-DC3271EEB675} 6 ;程序名 7 AppName=ISsample 8 ;版本号 9 AppVerName=ISsamp

一个相对完整的inno setup

代码: ;#define MyAppId "{{01DDF602-7CF8-40C9-816F-AD165F37F5E0}" #define MyAppName "ABCD" #define MyAppVersion "1.0.1.2" #define MyAppPublisher "AAA股份有限公司" #define MyAppURL "http://www.AAAA.com.cn/" #define

Inno Setup 安装、卸载前检测进程或服务

[转载]Inno Setup 安装.卸载前检测进程或服务 (2015-04-24 17:37:20) 转载▼ 标签: 转载   原文地址:Inno Setup 安装.卸载前检测进程或服务作者:一去丶二三里 在用Inno打包期间遇到了一些小问题,在这里总结一下: Inno.iss部分内容如下: 1.32位程序的PSVince.dll插件方法. [Files] Source: psvince.dll; Flags: dontcopy [Code] function IsModuleLoaded(mo

Inno Setup 安装前卸载原程序

Inno Setup 安装前卸载原程序 分类: Install Setup 2013-02-02 15:53 2315人阅读 评论(0) 收藏 举报 很多時候我們需要在安裝文件之前卸載原有的程序而不是覆蓋安裝,本文的code就是實現了這樣的功能. 實現原理是:從注冊表'UninstallString'項中讀取卸載信息,用Exec進行靜默卸載. 下面code中APP_NAME為你的程序名,可以去注冊表中確認. 1 function InitializeSetup(): boolean; 2 var

inno setup 安装前判断进程是否存在，以及停止相应进程<转>

打包的时候遇到了这样的需求:假似用户都是傻瓜                  式操作,如果更新安装程序的时候,之前的老程序还在运行这个时候如果你去提示让用户吧老程序手动退掉也不现实. 所以当遇到这种情况的时候能不能在更新安装程序上下手,在更新的时候就默认吧老程序杀掉(如果老程序在运行). 答案是明确的inno setup 是可以这样的操作. 下面是转的文章,谢谢作者的分享. ============================================================

Inno Setup安装程序单例运行

1.缘起: KV项目下载底层升级包,老是报出升级文件占用问题,反复分析,不得其所. 今天突然发现同时启动多个升级程序实例,分析认为安装包同时被调用多次,导致实例访问文件冲突,导致此问题. 安装程序由Inno Setup制作,遂找其解决方案,最先想到的是互斥体,就由此开始! 2.AppMutex [Setup] AppMutex=MyAppMutex 安装程序Setup段,此互斥变量,会在安装程序启动时检测是否有此互斥体的程序在运行,若有则提示: 通常,在程序中置同名互斥体,此入判断,可避免程序在

Inno Setup 通用脚本及简要说明（ 一般情况够用了）

;以下脚本主要完成创建开始菜单和桌面的快捷方式,目录安装. #define MyAppName "我的软件名"#define MyAppVersion "1.0"#define MyAppPublisher "软件作者"#define MyAppURL "作者网址"#define MyAppExeName "MYEXE.exe";主程序#define MyAppUninstallExeName "

Inno Setup 静默脚本

#define MyAppName "我的程序" #define MyAppVersion "1.5" #define MyAppPublisher "我的公司" #define MyAppURL "http://www.example.com/" #define MyAppExeName "222.txt"  ;222.txt为安装后需要打开的文件名 [Setup] ; 注: AppId的值为单独标识该应

Inno Setup安装、卸载时判断是否程序正在运行

var ErrorCode: Integer; IsRunning: Integer; // 安装时判断客户端是否正在运行 function InitializeSetup(): Boolean; begin Result :=true; //安装程序继续 IsRunning:=FindWindowByWindowName('E家人客户端'); while IsRunning<>0 do begin if Msgbox('安装程序检测到客户端正在运行.' #13#13 '您必须先关闭它然后单击