Inno Setup 打包创建自定义后缀名的文件

素颜马尾好姑娘i 2021-09-10 13:44 716阅读 0赞

最近公司需要实现这样一个需求：用户双击即可打开我们公司自定义的文件，如abc.yoya，我使用了Inno Setup编译器（版本5.5.5）。由于第一次使用Inno Setup 编译器，使用过程中遇到了不少问题，但经过几天的短暂接触使用和测试，现在已经基本实现需求。现在将我的安装脚本（完整）和经验跟大家分享学习。脚本功能包括：安装协议，开始菜单快捷方式，桌面快捷方式，自定义文件类型，更改卸载图标和卸载名称，安装前的版本检测，修改注册表等。

## 一. 定义全局默认值和配置初始化信息 ##

配置脚本如下：

; 脚本由 Inno Setup 脚本向导 生成！
    ; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！
    ; 定义基本参数，如应用名称，应用版本号，发布者名称，发布者主页，应用唯一ID值（该值用于在计算机注册表中作为该应用的唯一标识）
    #define MyAppName "优芽互动电影播放器"
    #define MyAppVersion "1.0"
    #define MyAppPublisher "厦门优芽网络科技有限公司"
    #define MyAppURL "http://www.yoya.com/"
    #define APPID "YoyaPlay"
    
    [Setup]
    ; 注: AppId的值为单独标识该应用程序。
    ; 不要为其他安装程序使用相同的AppId值。
    ; (生成新的GUID，点击 工具|在IDE中生成GUID。也可以自定义，如YoyaPlay)
    AppId={#APPID}
    ; 程序名
    AppName={#MyAppName}
    ;程序版本号
    AppVersion={#MyAppVersion}
    AppVerName={#MyAppName}{#MyAppVersion}
    ;发布者
    AppPublisher={#MyAppPublisher}
    ;相关连接
    AppPublisherURL={#MyAppURL}
    AppSupportURL={#MyAppURL}
    AppUpdatesURL={#MyAppURL}
    ;默认安装目录
    DefaultDirName={pf}\YoyaPlay
    ;默认开始菜单名
    DefaultGroupName=YoyaPlay                  
    ;安装协议
    LicenseFile=F:\9辅助软件\inno setup\Inno Setup 5\Examples\Readme.txt
    ;输出文件夹与文件名
    OutputDir=C:\Users\netinnet\Desktop
    OutputBaseFilename=setup
    ;安装图标
    SetupIconFile=C:\Users\netinnet\Desktop\nw_32bit\yoya.ico
    ;卸载图标
    Uninstallable=true
    UninstallDisplayIcon={app}\yoya.ico
    ;压缩相关
    Compression=lzma
    SolidCompression=yes
    ;安装完成后要求重启,因为要刷新注册表，这样自定义的文件就不会被杀毒软件误认为是无效快捷方式
    AlwaysRestart=yes
    ;备注版本信息
    VersionInfoCompany=http://www.yoya.com/ 
    VersionInfoDescription=优芽互动电影播放器  
    VersionInfoVersion=1.0
    VersionInfoCopyright=Copyright (C)2014

## 二. 定义使用语言、文件位置和提示消息 ##

配置脚本如下：

;使用语言
    [Languages]
    Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"
    
    [Files]
    ;注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”
    ;我的应用程序位置，包括exe应用程序，ico图标，dll动态链接库等
    Source: "C:\Users\netinnet\Desktop\nw_32bit\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
    ;卸载图标位置
    Source: "C:\Users\netinnet\Desktop\nw_32bit\uninstall.ico"; Flags: solidbreak dontcopy
    ;卸载插件位置
    Source: "C:\Users\netinnet\Desktop\nw_32bit\UpdateIcon.dll"; Flags: solidbreak dontcopy 
    
    [Messages]
    BeveledLabel=优芽互动电影播放器  
    ;卸载对话框说明  
    ConfirmUninstall=您真的想要从电脑中卸载优芽互动电影播放器吗?%n%n按 [是] 则完全删除 %1 以及它的所有组件;%n按 [否]则让软件继续留在您的电脑上.

## 三.  自定义注册表，开始菜单和桌面快捷方式 ##

我的应用无需开始菜单和桌面快捷方式，故此处注释掉该部分代码：

;自定义注册表，用于在用户系统中创建，修改或删除注册表健值
    [Registry]
    Root: HKLM; Subkey: Software\YoyaPlay; ValueType: string; ValueName: Installed version; ValueData: '1.0'; Flags: uninsdeletekey
    Root: HKCR; Subkey: "YoyaPlay"; ValueType: String; ValueData: "优芽网媒体文件";Flags: uninsdeletekey
    Root: HKCR; Subkey: "YoyaPlay\DefaultIcon"; ValueType: String; ValueData: "{app}\yoyafile.ico";Flags: uninsdeletekey
    Root: HKCR; Subkey: "YoyaPlay\shell\open\command"; ValueType: String; ValueData: "{app}\YoyaPlay.exe %1";Flags: uninsdeletekey
    Root: HKCR; Subkey: ".yoya"; ValueType: String; ValueData: "YoyaPlay";Flags: uninsdeletekey
    
    ;任务列表   
    ;[Tasks]
    ;Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked  
    ;Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked  
    
    ;开始菜单，桌面快捷方式  
    ;[Icons]  
    ;Name: "{group}\YoyaPlay"; Filename: "{app}\YoyaPlay.exe"  
    ;Name: "{group}\{cm:ProgramOnTheWeb,YoyaPlay}"; Filename: "http://www.yoya.com"  
    ;Name: "{group}\{cm:UninstallProgram,YoyaPlay}"; Filename: "{app}\YoyaUninstall.exe"  
    ;Name: "{commondesktop}\YoyaPlay"; Filename: "{app}\YoyaPlay.exe"; Tasks: desktopicon  
    ;Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\YoyaPlay"; Filename: "{app}\YoyaPlay.exe"; Tasks: quicklaunchicon

## 四. 执行代码 ##

安装过程逻辑脚本：

;在执行脚本  
    [code]
    function GetInstalledVersion(): String;
    var InstalledVersion: String;
    begin
      InstalledVersion :='';
      RegQueryStringValue(HKLM, 'Software\YoyaPlay', 'Installed version', InstalledVersion);
      Result := InstalledVersion;
    end;
    
    function InitializeSetup(): Boolean;
    var PrevVer: String;
    begin
      PrevVer := GetInstalledVersion();
      result := true;
      if length(PrevVer) > 0 then 
      begin
        //如果发现程序已经安装过了
        MsgBox ('本程序的 ' + PrevVer + ' 版本已经安装，请卸载后再安装本程序. 安装程序将关闭.', mbError, MB_OK);
        result := false;
      end;
    end;
    //插件函数用法
    //参数: 句柄(插件错误对话框的父句柄), exe文件完整路径名称, (exe文件中要替换的)图标资源名称, 图标文件的完整路径名称, (exe中要替换的图标资源所在)语系
    //返回值: 成功 = True, 失败 = False
    //安装初始化
    function UpdateIcon(const hWnd: Integer; const exeFileName, exeIcon, IcoFileName: String; wlangID: DWORD): Boolean;
    external 'UpdateIcon@files:UpdateIcon.dll stdcall';
    //替换卸载程序的图标
    function UpdateUninstIcon(const IcoFileName: String): Boolean;
    begin 
      //要替换图标的exe文件路径名称留空，则插件会自动替换掉Inno卸载程序的图标！其它参数类似！
      Result:= UpdateIcon(MainForm.Handle, '', '', IcoFileName, 0); //替换卸载图标
    end;
    procedure CurStepChanged(CurStep: TSetupStep);
    var uninspath, uninsname, NewUninsName, MyAppName,sIcon: String;
    
    begin
      //注意: 替换卸载程序的图标，必须是在卸载程序生成之前！
      //建议安装图标与卸载图标的格式与大小一致，否则可能会导致卸载程序出错！
      if CurStep=ssInstall then
        begin
        sIcon:= ExpandConstant('{tmp}\uninstall.ico'); //定义卸载图标
        //ExtractTemporaryFile('UpdateIcon.dll');//该动态链接库可网上查找
        ExtractTemporaryFile(ExtractFileName(sIcon)); //释放卸载图标
        //要替换图标的exe文件路径名称留空，则插件会自动替换掉Inno卸载程序的图标！
        UpdateUninstIcon(sIcon) //替换卸载图标
        end;
      if CurStep=ssDone then
        begin
        // 指定新的卸载文件名（不包含扩展名），请相应修改！  
        NewUninsName := 'YoyaUninstall';  
        // 应用程序名称，与 [SEUTP] 段的 AppName 必须一致，请相应修改！  
        MyAppName := '优芽互动电影播放器';  
        // 以下重命名卸载文件  
        uninspath:= ExtractFilePath(ExpandConstant('{uninstallexe}'));  
        uninsname:= Copy(ExtractFileName(ExpandConstant('{uninstallexe}')),1,8);  
        RenameFile(uninspath + uninsname + '.exe', uninspath + NewUninsName + '.exe');  
        RenameFile(uninspath + uninsname + '.dat', uninspath + NewUninsName + '.dat'); 
        end; 
        // 以下修改相应的注册表内容
        if RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{#APPID}_is1') then
        begin
        RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{#APPID}_is1', 'UninstallString', '"' + uninspath + NewUninsName + '.exe"');
        RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{#APPID}_is1', 'QuietUninstallString', '"' + uninspath + NewUninsName + '.exe" /SILENT');
        end;   
    end;

如果想要在程序安装过程中或之后执行某批处理或打开某应用，可使用一下语句：

[Run]
    Filename: "{app}\Reflash.bat"; Description: "正在刷新注册表"; Flags: runhidden;

至此大功告成，另外，所使用的ICO图标尺寸建议用128\*128 。

应用图标：

![Center][]

安装过程：

![Center 1][]![Center 2][]![Center 3][]![Center 4][]![Center 5][]

卸载相关：

![Center 6][]

[Center]: /images/20210813/97b5c44fa44943508d3c5aac2b925062.png
[Center 1]: https://img-blog.csdn.net/20150731153529882?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center
[Center 2]: https://img-blog.csdn.net/20150731153544515?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center
[Center 3]: https://img-blog.csdn.net/20150731153601098?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center
[Center 4]: https://img-blog.csdn.net/20150731153633998?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center
[Center 5]: /images/20210813/451e7a2543e94814913ea7445ed0201c.png
[Center 6]: /images/20210813/fa9db30c7a6445449f265a432ac7b9ca.png