Inno Setup 使用小结

使用Inno Setup打包.此软件用的脚本语言,以前没接触过,所以很艰难的做完工作,很珍惜的把代码放到这里,以便利人利己查阅.

 

//主要实现:实现多路径安装,主程序一个路径,工程文件等用另一个路径,有用户选择两个路径,可有默认值;把用户选的这两个路径写入到注册表,以便配置时使用(程序中实现);包括.Net Framework,AE的安装注册,自定义DLL的注册等.脚本如下:#define MyAppName "**系统" #define MyAppExeName "**.exe" #define UninstallName "卸载" [Setup] AppCopyright=版权所有(C) 2009,**有限公司 AppName={#MyAppName} AppVerName=** v1.0 OutputDir=E:/UseFull UninstallFilesDir={code:getProgDir} ExtraDiskSpaceRequired=0 VersionInfoVersion=1.0 VersionInfoCompany= **有限公司 EnableDirDoesntExistWarning=true AppId={​{4BBCD26F-DAFB-4D98-A805-BC052B4CD6BE} ;注意上面是两个{符号 LanguageDetectionMethod=uilanguage ;UsePreviousSetupType DisableStartupPrompt=yes DirExistsWarning=no OutputBaseFilename=**系统安装 ;UsePreviousTasks ;UsePreviousAppDir AllowRootDirectory=yes CreateAppDir=no [Languages] Name: chs;MessagesFile: "compiler:Languages/ChineseTrad.isl" Name: en; MessagesFile: "compiler:Default.isl" ;语言,汉语 [Files] source: "E:/Usefull/EntireSetup/vcredist_x86.exe";DestDir: {code:getProgDir}; Flags: ignoreversion deleteafterinstall Source: "E:/Usefull/EntireSetup/Debug/*"; DestDir: {code:getProgDir}; Flags: ignoreversion recursesubdirs createallsubdirs source: "E:/Usefull/EntireSetup/dotNetFramework/dotnetfx.exe"; DestDir: {code:getProgDir}; Check:not Is64BitInstallMode; Flags: ignoreversion deleteafterinstall ;deleteafterinstall安装完后将解压缩出来的用来安装的此文件删除 source: "E:/Usefull/EntireSetup/dotNetFramework/x64/dotnetfx.exe";DestDir: {code:getProgDir}; Check: Is64BitInstallMode; Flags: ignoreversion deleteafterinstall ;如果是64位系统,此处为了安装简便(只安装解压出来的那个文件),取了相同名字,但不会冲突,因为只可能有一个解压到目标文件夹 source: "E:/Usefull/EntireSetup/**.dll";DestDir: {code:getProgDir}; Flags: ignoreversion source: "E:/Usefull/EntireSetup/**.reg";DestDir: {code:getProgDir}; Flags: ignoreversion deleteafterinstall ;自定义的控件进行注册,用RegAsm对此文件生成.reg的注册文件然后由inno调用执行 source: "E:/Usefull/EntireSetup/EngineRT/*";DestDir: {code:getProgDir}; Flags: ignoreversion deleteafterinstall source: "E:/Usefull/EntireSetup/arcengine93.ecp";DestDir: {code:getProgDir}; Flags: ignoreversion deleteafterinstall ;此*.ecp是自己加到这个包中的 [Icons] Name: "{commonprograms}/Gis/GisName/{#MyAppName}"; Filename: "{code:getProgDir}/{#MyAppExeName}"; WorkingDir: {code:getProgDir} ;开始->所有程序菜单中快捷方式 Name: "{commondesktop}/{#MyAppName}"; Filename: "{code:getProgDir}/{#MyAppExeName}"; WorkingDir: {code:getProgDir} ;桌面快捷方式 ;主程序 Name: "{commonprograms}/Gis/GisName/{#UninstallName}"; Filename: "{code:getProgDir}/Uninstall.exe"; WorkingDir: {code:getProgDir} ;卸载 ;Name: "{group}/ //所有程序/Default/... ;Name: "{commonstartup} //所有程序/启动/ [CustomMessages] Packagename=**系统 Packagever=1.0 chs.installBinFile=安装可执行文件 chs.installLibFile=安装库文件 chs.choicedirCaption=选择目标位置 chs.choicedirDescription=你想将 %1 安装在什么地方？ chs.SelectDirLabel=安装程序将安装 %1 到下列文件夹中。 chs.choicedir=选择%1的安装目录 chs.SelectDirBrowseLabel=单击“下一步”继续。如果您想选择其它文件夹，请单击“浏览”。 chs.Button1Browse=浏览(&B)... chs.Button2Browse=浏览(&R)... ;chs.msyslabel=(工程文件路径) ;chs.mingwlabel=(主程序安装路径) chs.installedDir=%1安装目录 [Code] procedure CurStepChanged(CurStep: TSetupStep); var uninspath1, uninsname1, NewUninsName1, MyAppName1: string; begin if CurStep=ssDone then begin // 指定新的卸载文件名（不包含扩展名） NewUninsName1 := 'Uninstall'; // 应用程序名称，与 [SEUTP] 段的 AppName 必须一致 MyAppName1 := '**系统'; // 以下重命名卸载文件 uninspath1:= ExtractFilePath(ExpandConstant('{uninstallexe}')); uninsname1:= Copy(ExtractFileName(ExpandConstant('{uninstallexe}')),1,8); RenameFile(uninspath1 + uninsname1 + '.exe', uninspath1 + NewUninsName1 + '.exe'); RenameFile(uninspath1 + uninsname1 + '.dat', uninspath1 + NewUninsName1 + '.dat'); end; end; var Mingwdir: TLabel; Msysdir: TLabel; BitmapImage1: TBitmapImage; Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; NewStaticText1: TNewStaticText; NewStaticText2: TNewStaticText; procedure ChoseMingwFoldersClick(Sender: TObject); var choicedDIR:String; begin if BrowseForFolder(ExpandConstant('{cm:choicedir,主程序}'),choicedDIR,True) then Edit1.Text := choicedDIR; end; procedure ChoseMsysFoldersClick(Sender: TObject); var choicedDIR:String; begin // if BrowseForFolder('选择 安装目录',choicedDIR,True) then if BrowseForFolder(ExpandConstant('{cm:choicedir,工程文件}'),choicedDIR,True) then Edit2.Text := choicedDIR; end; procedure choicedir_Activate(Page: TWizardPage); begin end; function choicedir_ShouldSkipPage(Page: TWizardPage): Boolean; begin Result := False; end; function choicedir_BackButtonClick(Page: TWizardPage): Boolean; begin Result := True; end; function choicedir_NextButtonClick(Page: TWizardPage): Boolean; begin Result := True; end; procedure choicedir_CancelButtonClick(Page: TWizardPage; var Cancel, Confirm: Boolean); begin end; function choicedir_CreatePage(PreviousPageId: Integer): Integer; var Page: TWizardPage; begin Page := CreateCustomPage( PreviousPageId, ExpandConstant('{cm:choicedirCaption}'), ExpandConstant('{cm:choicedirDescription,{cm:Packagename}}') ); { Mingwdir } Mingwdir := TLabel.Create(Page); with Mingwdir do begin Parent := Page.Surface; Left := ScaleX(0); Top := ScaleY(88); Width := ScaleX(24); Height := ScaleY(16); //Caption := ExpandConstant('{cm:installedDir,Mingw}') ; Caption := ExpandConstant('{cm:installedDir,主程序}') ; Font.Color := -16777208; Font.Height := ScaleY(-13); Font.Name := 'Tahoma'; Font.Style := [fsBold]; end; { Msysdir } Msysdir := TLabel.Create(Page); with Msysdir do begin Parent := Page.Surface; Left := ScaleX(0); Top := ScaleY(160); Width := ScaleX(24); Height := ScaleY(16); Caption := ExpandConstant('{cm:installedDir,工程文件}') ; Font.Color := -16777208; Font.Height := ScaleY(-13); Font.Name := 'Tahoma'; Font.Style := [fsBold]; end; { BitmapImage1 } BitmapImage1 := TBitmapImage.Create(Page); with BitmapImage1 do begin Parent := Page.Surface; Left := ScaleX(8); Top := ScaleY(8); Width := ScaleX(57); Height := ScaleY(41); //Bitmap.LoadFromFile(BitmapFileName); end; //label1 //label2 { Edit1 } Edit1 := TEdit.Create(Page); with Edit1 do begin Parent := Page.Surface; Left := ScaleX(16); Top := ScaleY(112); Width := ScaleX(313); Height := ScaleY(21); TabOrder := 0; Text := 'C:/Program Files'; end; ;第一个自定义路径的默认值,用来安装主程序 { Edit2 } Edit2 := TEdit.Create(Page); with Edit2 do begin Parent := Page.Surface; Left := ScaleX(16); Top := ScaleY(184); Width := ScaleX(313); Height := ScaleY(21); TabOrder := 1; Text := 'C:'; end; ;第二个自定义路径的默认值,用来存放工程文件 { Button1 } Button1 := TButton.Create(Page); with Button1 do begin Parent := Page.Surface; Left := ScaleX(336); Top := ScaleY(112); Width := ScaleX(75); Height := ScaleY(23); Caption :=ExpandConstant('{cm:Button1Browse}'); TabOrder := 2; OnClick := @ChoseMingwFoldersClick; end; { Button2 } Button2 := TButton.Create(Page); with Button2 do begin Parent := Page.Surface; Left := ScaleX(336); Top := ScaleY(184); Width := ScaleX(75); Height := ScaleY(23); Caption := ExpandConstant('{cm:Button2Browse}'); TabOrder := 3; OnClick := @ChoseMsysFoldersClick; end; { NewStaticText1 } NewStaticText1 := TNewStaticText.Create(Page); with NewStaticText1 do begin Parent := Page.Surface; Left := ScaleX(16); Top := ScaleY(16); Width := ScaleX(22); Height := ScaleY(17); Caption := ExpandConstant('{cm:SelectDirLabel,{cm:Packagename}}'); Font.Color := -16777208; Font.Height := ScaleY(-13); TabOrder := 4; end; { NewStaticText2 } NewStaticText2 := TNewStaticText.Create(Page); with NewStaticText2 do begin Parent := Page.Surface; Left := ScaleX(16); Top := ScaleY(50); Width := ScaleX(22); Height := ScaleY(17); // Caption := '单击“下一步”继续。如果你想选择其它文件夹，请单击“浏览”。'; Caption := ExpandConstant('{cm:SelectDirBrowseLabel,{cm:Packagename}}'); Font.Color := -16777208; end; with Page do begin OnActivate := @choicedir_Activate; OnShouldSkipPage := @choicedir_ShouldSkipPage; OnBackButtonClick := @choicedir_BackButtonClick; OnNextButtonClick := @choicedir_NextButtonClick; OnCancelButtonClick := @choicedir_CancelButtonClick; end; Result := Page.ID; end; function getProgDir(Param: String): String; begin Result := Edit1.Text+'/Gis/GisName'; end; function getProjDir(Param: String): String; begin Result := Edit2.Text; end; procedure InitializeWizard(); begin choicedir_CreatePage(wpUserInfo); end; [Registry] Root: HKLM ; Subkey: "SOFTWARE/Gis/GisName'"; ValueType: string; ValueName: "InstallPath"; ValueData: {code:getProgDir}; Flags:deletevalue uninsdeletekey Root: HKLM ; Subkey: "SOFTWARE/Gis/GisName'"; ValueType: string; ValueName: "ProjectPath"; ValueData: {code:getProjDir}; Flags:deletevalue uninsdeletekey [Run] Filename: "{code:getProgDir}/vcredist_x86.exe"; Description: "vcredist_x86安装"; StatusMsg: "正在安装系统运行所需环境..."; Flags: postinstall skipifsilent Filename: "{code:getProgDir}/dotnetfx.exe"; Description: "DotNet Framework2.0安装"; StatusMsg: "正在安装系统运行所需环境..."; Flags: postinstall skipifsilent ;这里也是安装32位的framework。 Filename: "{code:getProgDir}/Setup.exe"; Description: "ArcEngine Runtime安装"; StatusMsg: "正在安装系统运行所需环境..."; Flags: postinstall skipifsilent Filename: "{code:getProgDir}/arcengine93.ecp"; Description: "ArcEngine Runtime注册"; StatusMsg: "正在安装系统运行所需环境..."; Flags: postinstall skipifsilent shellexec Filename: "{code:getProgDir}/**.reg"; Description: "**组件注册"; StatusMsg: "正在对**组件进行注册..."; Flags: postinstall skipifsilent shellexec waituntilterminated ;注册 Filename: "{code:getProgDir}/{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#MyAppName}}"; Flags: postinstall skipifsilent unchecked nowait

多路径选择

多任务选择

第二个脚本用来做升级包,主要功能:运行初期检测注册表中是否有信息,以及该系统是否正在运行;运行时直接替换旧文件;脚本如下:

; 脚本由 Inno Setup 脚本向导 生成！ ; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！ #define MyAppName "**系统升级程序" #define MyAppVerName "**升级程序" #define MyAppPublisher "**公司" [Setup] ; 注: AppId的值为单独标识该应用程序。 ; 不要为其他安装程序使用相同的AppId值。 ; (生成新的GUID，点击 工具|在IDE中生成GUID。) AppId={​{53B28FE7-785C-44C3-8AB6-293A090F1FBD} AppName={#MyAppName} AppVerName={#MyAppVerName} AppPublisher={#MyAppPublisher} CreateAppDir=false ;DefaultDirName={​{pf}/{#MyAppName}} DefaultGroupName={#MyAppName} DisableProgramGroupPage=yes OutputBaseFilename=**系统升级程序 Outputdir=E:/usefull Compression=lzma SolidCompression=yes Uninstallable=no ;不生成卸载程序 DisableFinishedPage=yes DisableDirPage=yes DisableReadyPage=yes [Languages] Name: "chinesesimp"; MessagesFile: "compiler:Default.isl" [Files] Source: "E:/Usefull/EntireSetup/Debug/**.exe"; DestDir: {code:getProgDir}; AfterInstall: MyAfterInstall; Flags: ignoreversion replacesameversion overwritereadonly [code] var ErrorCode: Integer; IsRunning: Integer; // 安装时判断客户端是否正在运行 function InitializeSetup(): Boolean; begin Result :=true; //安装程序继续 IsRunning:=FindWindowByWindowName('**系统'); //此程序的名字 while IsRunning<>0 do begin if Msgbox('安装程序检测到"**系统"正在运行。' #13#13 '您必须先关闭它然后单击“是”继续安装，或按“否”退出！', mbConfirmation, MB_YESNO) = idNO then begin Result :=false; //安装程序退出 IsRunning :=0; end else begin Result :=true; //安装程序继续 IsRunning:=FindWindowByWindowName('**系统'); end; end; if NOT RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE/GIS/GisNAME') then begin Msgbox('没有在系统中发现"**系统"(注:程序名称).' #13#13 '安装程序将终止.', mbInformation, MB_OK); Result :=false; //安装程序退出 IsRunning :=0; end end; procedure CurPageChanged(CurPageID: Integer); begin if CurPageID = wpWelcome then WizardForm.NextButton.OnClick(WizardForm); end; function getProgDir(Param: String): String; var ResultStr:string; begin if RegQueryStringValue(HKLM, 'SOFTWARE/GIS/GISNAME', 'InstallPath', ResultStr) then begin ResultStr := RemoveQuotes(ResultStr); end //注意注意 此处没分号 下方else else begin Msgbox('没有在系统中发现"**",请确定您安装了此程序,安装程序将终止.', mbInformation, MB_OK); end; Result := ResultStr; end; procedure MyAfterInstall(); begin MsgBox('对"**系统"的更新已经结束.' , mbInformation, MB_OK); end;

 

附:几个学习资料

Inno Setup 5.3.5:http://img.newhua.com/softimg.php?id=4692

inno setup教程(inno setup使用说明)：http://hi.baidu.com/ilovecmy/blog/item/4ff156b0a1d31a5e0923029e.html 

Inno Setup详细教程(09.09.04更新修正...)：http://hi.baidu.com/pfia/blog/item/def4685487dbc251d0090613.html