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

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

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

    [plain] view plaincopy
    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:ExampleInnoSetupout  
    30. ;输出文件名  
    31. OutputBaseFilename=setup  
    32. ;安装图标  
    33. SetupIconFile=C:Example原始文件 itle.ico  
    34. ;安装需要输入密码  
    35. ;Password=123  
    36. ;Encryption=yes  
    37.   
    38. ;压缩相关  
    39. Compression=lzma  
    40. SolidCompression=yes  
    41.   
    42. ;可以让用户忽略选择语言相关  
    43. ShowLanguageDialog = yes  
    44. ;备注版本信息  
    45. VersionInfoCompany=HTTP://www.Hkiss.COM  
    46. VersionInfoDescription=ISsample 汉化增强版  
    47. VersionInfoVersion=1.0.0.0  
    48. VersionInfoCopyright=Copyright (C) 2007-2008 Hkiss  
    49.   
    50. ;制作选择语言  
    51. [Languages]  
    52. Name: "chs"; MessagesFile: "compiler:Default.isl" ;LicenSeFile :"C:Example原始文件chsagreement.txt"  
    53. Name: "en"; MessagesFile: "compiler:LanguagesEnglish.isl";LicenSeFile :"C:Example原始文件enagreement.txt"  
    54.   
    55. ;用户定制任务  
    56. [Tasks]  
    57. Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked  
    58. Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked  
    59. Name: "Tasks_1" ; Description:"用户自定义任务1"; Flags: unchecked  
    60. Name: "Tasks_2" ; Description:"用户自定义任务2"; Flags: unchecked  
    61. ;选择了组件才会出现的定制任务  
    62. Name: "Tasks_3" ; Description:"用户自定义任务3";Components: c1 ; Flags: unchecked  
    63.   
    64. ;文件安装  
    65. [Files]  
    66. ;多语言安装环境设置    公共参数Languages 来设置  
    67. Source: "C:Example原始文件enfile.txt"; DestDir: "{app}"; Languages: en ; Flags: ignoreversion  
    68. Source: "C:Example原始文件chsfile.txt"; DestDir: "{app}"; Languages: chs ; Flags: ignoreversion  
    69. ;用户自定义任务 Tasks  
    70. Source: "C:Example原始文件Tasks asks_1.txt"; DestDir: "{app}Tasks"; Flags: ignoreversion ;Tasks : Tasks_1  
    71. Source: "C:Example原始文件Tasks asks_2.txt"; DestDir: "{app}Tasks"; Flags: ignoreversion ;Tasks :Tasks_2  
    72. Source: "C:Example原始文件Tasks asks_Components.txt"; DestDir: "{app}Tasks"; Flags: ignoreversion ;Tasks :Tasks_2  
    73. ;用户定义组件安装  
    74. Source: "C:Example原始文件ComponentsComponents_1.txt"; DestDir: "{app}Components"; Flags: ignoreversion ; Components: a1;  
    75. Source: "C:Example原始文件ComponentsComponents_2.txt"; DestDir: "{app}Components"; Flags: ignoreversion ; Components: a2;  
    76. Source: "C:Example原始文件ComponentsComponents_3.txt"; DestDir: "{app}Components"; Flags: ignoreversion ; Components: a3;  
    77. Source: "C:Example 原始文件ComponentsComponents_4.txt"; DestDir: "{app} Components"; Flags: ignoreversion ; Components: a1 a2 a3;  
    78.   
    79. ;用户注册自定义Dll文件      regserver 注册 noregerror 不显示错误信息  
    80. Source: "C:Example原始文件jmail.dll"; DestDir: "{app}"; Flags: ignoreversion regserver  
    81. ;添加自述文件  
    82. Source: "C:Example原始文件ISsample.txt"; DestDir: "{app}"; Flags: ignoreversion  
    83. ;添加一个文件到缓存文件夹{Tmp} deleteafterinstall 安装后删除  
    84. Source: "C:Example原始文件 est.exe"; DestDir: "{tmp}"; Flags: ignoreversion deleteafterinstall  
    85.   
    86. Source: "C:Example原始文件ISsample.chm"; DestDir: "{app}"; Flags: ignoreversion  
    87. Source: "C:Example原始文件ISsample.exe"; DestDir: "{app}"; Flags: ignoreversion  
    88. Source: "C:Example原始文件ISsample.dll"; DestDir: "{app}"; Flags: ignoreversion  
    89. Source: "C:Example原始文件ISsample.ini"; DestDir: "{app}"; Flags: ignoreversion  
    90. Source: "C:Example原始文件ISsample.rar"; DestDir: "{app}"; Flags: ignoreversion  
    91. Source: "C:Example原始文件ISsample_sys.dll"; DestDir: "{win}System32"; Flags: ignoreversion  
    92. Source: "C:Example原始文件log*"; DestDir: "{app}log"; Flags: ignoreversion recursesubdirs createallsubdirs  
    93. ; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”  
    94. ;安装类型设置  
    95. [Types]  
    96. Name: Full ;Description:"完全安装"; Flags: iscustom  
    97. Name: Compact ;Description:"简洁安装";  
    98. Name: Custom; Description:"自定义安装";  
    99. ;组件安装  
    100. [Components]  
    101. Name: c1; Description: "自定义任务3" ; Types: Full  
    102. Name: a1; Description: "安装Components_1"; Types: Full Compact Custom ;  
    103. Name: a2; Description: "安装Components_2"; Types : Full   Compact  
    104. Name: a3; Description: "安装Components_3"; Types : Full  
    105.   
    106. ;开始菜单，桌面快捷方式  
    107. [Icons]  
    108. Name: "{group}ISsample"; Filename: "{app}ISsample.exe"  
    109. Name: "{group}{cm:ProgramOnTheWeb,ISsample}"; Filename: "http://zwkufo.blog.163.com"  
    110. Name: "{group}{cm:UninstallProgram,ISsample}"; Filename: "{uninstallexe}"  
    111. Name: "{commondesktop}ISsample"; Filename: "{app}ISsample.exe"; Tasks: desktopicon  
    112. Name: "{userappdata}MicrosoftInternet ExplorerQuick LaunchISsample"; Filename: "{app}ISsample.exe"; Tasks: quicklaunchicon  
    113. ;添加一个帮助文挡  
    114. Name: {group}ISsample 1.0.0.0 帮助文档;Filename: {app}ISsample.chm  
    115.   
    116. ;用来在程序安装完成后 在安装程序显示最终对话框之前执行程序 常用与运行主程序 显示自述文件 删除临时文件  
    117. [Run]  
    118. Filename: "{app}ISsample.exe"; Description: "{cm:LaunchProgram,ISsample}"; Flags: nowait postinstall skipifsilent  
    119. Filename: "{app}ISsample.txt"; Description: "查看显示自述文件"; Flags: postinstall skipifsilent shellexec  
    120.   
    121. ;更改显示在程序中显示的消息文本  
    122. [Messages]  
    123. BeveledLabel=HKiss科技  
    124. ;卸载对话框说明  
    125. ConfirmUninstall=您真的想要从电脑中卸载ISsample吗?%n%n按 [是] 则完全删除 %1 以及它的所有组件;%n按 [否]则让软件继续留在您的电脑上.  
    126. ;定义解压说明  
    127. ;StatusExtractFiles=解压并复制主程序文件及相关库文件...  
    128.   
    129. ;用于在用户系统中创建，修改或删除ini文件健值  
    130. [INI]  
    131. Filename: "{app}cfg.ini"; Section: "Startup Options"; Flags: uninsdeletesection  
    132. Filename: "{app}cfg.ini"; Section: "Startup Options"; Key: "server ip"; String: "127.0.0.1"  
    133. Filename: "{app}cfg.ini"; Section: "Startup Options"; Key: "server port"; String: "8080"  
    134.   
    135. ;用于在用户系统中创建，修改或删除注册表健值  
    136. [Registry]  
    137. Root: HKLM ;SubKey:"SoftwareISsample";ValueType:dword;ValueName:config;ValueData:10 ;Flags:uninsdeletevalue  
    138. ;在执行脚本  
    139. [code]  
    140. //全局变量  
    141. var MyProgChecked: Boolean;  
    142.   
    143. //判断程序是否存在  
    144. //初始华程序事件  
    145. function InitializeSetup(): boolean;  
    146. var Isbl: boolean;         //声明变量  
    147. var Isstr: string;  
    148. begin       //开始  
    149. Isbl := true;             //变量赋值  
    150. Isstr := '欢迎';  
    151. if RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWAREISsample', 'config') then  
    152. begin  
    153.     MsgBox('已安装过，请先卸载在安装',mbConfirmation, MB_OK);  
    154.     isbl := false;  
    155. end else  
    156. begin  
    157.    //MsgBox('无值',mbConfirmation, MB_OK);  
    158.      isbl := true;  
    159. end;  
    160.   
    161. //下面是个麻烦的 条件语句 end else 注意  
    162. //if MsgBox(Isstr, mbConfirmation, MB_OKCANCEL) = IDOK then  
    163. //begin  
    164. // isbl := true;  
    165. // MsgBox('执行了', mbConfirmation, MB_OK);  
    166. //end else  
    167. //begin  
    168. // isbl := false;  
    169. //MsgBox('执行了', mbConfirmation, MB_OK);  
    170. //end;  
    171.   
    172. Result := Isbl;  
    173. end;       //结束  
    174.   
    175. procedure CurStepChanged(CurStep: TSetupStep);  
    176. var Isstr :string;  
    177. begin  
    178. if CurStep=ssInstall then       //实际安装前调用  
    179. begin  
    180.     //MsgBox('CurStepChanged:实际安装前调用', mbConfirmation, MB_OKCANCEL);           //安装完成后调用  
    181. end;  
    182. if CurStep=ssPostInstall then  
    183. begin  
    184.     Isstr := ExpandConstant('{tmp} mp.rar');  
    185. //    if FileExists(Isstr) then  
    186. //    begin  
    187. //      MsgBox('文件存在',mbConfirmation, MB_OK);  
    188. //    end else  
    189. //    begin  
    190. //      MsgBox('文件不存在',mbConfirmation, MB_OK);  
    191. //    end;  
    192.    // MsgBox('CurStepChanged:实际安装后调用', mbConfirmation, MB_OKCANCEL);  
    193. end;  
    194. end;  
    195.   
    196. //下一步 按钮按钮 事件  
    197. function NextButtonClick(CurPageID: Integer): Boolean;  
    198. var ResultCode: Integer;  
    199. var IsSetup : Boolean;  
    200. begin  
    201. IsSetup := true ;  
    202. case CurPageID of  
    203.     wpSelectDir:  
    204.        MsgBox('NextButtonClick:' #13#13 'You selected: ''' + WizardDirValue + '''.', mbInformation, MB_OK);   //WizardDirValue 路径  
    205.     wpSelectProgramGroup:  
    206.        MsgBox('NextButtonClick:' #13#13 'You selected: ''' + WizardGroupValue + '''.', mbInformation, MB_OK); //开始菜单名  
    207.     wpReady:  
    208.       begin  
    209.        if not RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARETest', 'config') then   begin  
    210.           if MsgBox('程序执行需要Test.ext,是否安装!', mbConfirmation, MB_YESNO) = idYes then begin  
    211.            ExtractTemporaryFile('test.exe');  
    212.             if not Exec(ExpandConstant('{tmp} est.exe'), '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode) then  
    213.               MsgBox('Test.exe出错:' #13#13 ' ' + SysErrorMessage(ResultCode) + '.', mbError, MB_OK);  
    214.           end else begin  
    215.                 IsSetup := false ;  
    216.           end ;  
    217.           BringToFrontAndRestore();  
    218.         end;  
    219.       end;  
    220. end;  
    221. Result := IsSetup;  
    222. end; 
  • 相关阅读:
    Base64字符串在传递过程中加号被转成空格
    IIS无法启动，应用程序池自动关闭，应用程序池XXXX将被自动禁用 解决方案之一
    我要写程序我要写程序
    react native项目改名（仅针对android）
    webpack之html-webpack-plugin的使用
    webpack之React开发环境配置
    webpack之webpack-dev-server的使用
    html2canvas截图空白问题
    webpack源码分析——参数初始化
    webpack源码分析——配置调试环境
  • 原文地址：https://www.cnblogs.com/joean/p/4881191.html
Copyright © 2020-2023  润新知