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

  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 ;压缩相关
 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\原始文件\chs\agreement.txt"
 53 Name: "en"; MessagesFile: "compiler:Languages\English.isl";LicenSeFile :"C:\Example\原始文件\en\agreement.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\tasks_1.txt"; DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks : Tasks_1
 71 Source: "C:\Example\原始文件\Tasks\tasks_2.txt"; DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks :Tasks_2
 72 Source: "C:\Example\原始文件\Tasks\tasks_Components.txt"; DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks :Tasks_2
 73 ;用户定义组件安装
 74 Source: "C:\Example\原始文件\Components\Components_1.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a1;
 75 Source: "C:\Example\原始文件\Components\Components_2.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a2;
 76 Source: "C:\Example\原始文件\Components\Components_3.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a3;
 77 Source: "C:\Example\原始文件\Components\Components_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\原始文件\test.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}\Microsoft\Internet Explorer\Quick Launch\ISsample"; 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:"Software\ISsample";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, ‘SOFTWARE\ISsample‘, ‘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}\tmp.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, ‘SOFTWARE\Test‘, ‘config‘) then   begin
210           if MsgBox(‘程序执行需要Test.ext,是否安装!‘, mbConfirmation, MB_YESNO) = idYes then begin
211            ExtractTemporaryFile(‘test.exe‘);
212             if not Exec(ExpandConstant(‘{tmp}\test.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;