制作部署安装包：Inno Setup

前一篇尝试Office 2003 VSTO的开发、部署有提到用VS开发一个简单的VSTO程序。打包C/S程序，我首先想到的是VS里自带的Setup Project。很遗憾，VS2012及后面的版本都剔除了Setup Project，改用InstallShield Limited Edition。

Setup Project配置起来N麻烦，如：配置完成了之后，一旦修改了项目的东西然后重新生成，只有移除原来定义好的快捷方式、主输出，然后重新设置才能应用修改。而ISLE，对于一些简单的打包，基本上都是满足了的，而且整个操作过程都有界面，动动鼠标就行了；里面有部分功能是可以写代码定制的，不过要授权收费！这是我个人的使用心得，安装打包用得不多，有误之处，还请多多指教。

无意中发现了Inno这个小东西（官网地址），然后深深地被它吸引了。麻雀虽小，五脏俱全，可以完全免费使用，最主要的是它允许自己使用Pascal语言编写定制脚本。

网上挺多资料的，但很多都是雷同，且测试时部分有bug。下面贴上自己的一个代码栗子，参考了网上的几篇文章，然后修改整理的。

需要注意的：

1、打包指定文件（夹）时，该文件（夹）必须存在文件，不然编译时提示错误。路径（可使用相对路径）CheckOfficeConsole\DotNetFramework必须要存在文件，可以是任何类型的。

Source: "CheckOfficeConsole\DotNetFramework\*"; DestDir: "{tmp}"; Flags: ignoreversion

2、检测.net framework，如果不存在则从指定网址下载安装包时，需要用到isxdl.dll。这个dll需要下载并安装ISTool。

3、.net framework 的下载地址，我找到了除v3.0、v1版本以外的安装包地址，测试时都可用。未来微软网站也许会对这些资源包地址更新，所以不保证一直可用。

4、安装过程中，可通过Inno的函数读取指定目录的.ini文件，并获得文件里的参数值。这个太赞了有木有！一来可以减少在Inno脚本里硬编码，二来可以在安装过程中初始化相关数据。如：Output目录有一个setup.ini文件，里面的内容为：

[Custom]

dotNetVersion =  v4.

Inno的读取代码：

function GetCustomConfig(key:string):string;

var

  myValue:string;

begin

  myValue:=ExpandConstant('{ini:{src}\Setup.ini,Custom,'+key+'}')

  result := myValue;

end;

//使用

//.....

 GetCustomConfig('dotNetVersion');

//.....

完整版：

; Script generated by the Inno Setup Script Wizard.

; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

; Ivan 2015-1-30

#define MyAppName "VSTO Excel by Ivan"

#define MyAppVersion "1.0"

#define MyAppPublisher "My Company, Inc."

#define MyAppURL "http://www.IvanBy.com/"

#define MyAppExeName "CheckOfficeConsole.exe"

[Setup]

; NOTE: The value of AppId uniquely identifies this application.

; Do not use the same AppId value in installers for other applications.

; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)

AppId={{6DFC5AE2-4844-4440-A6B3-284E15A14AEA}

AppName={#MyAppName}

AppVersion={#MyAppVersion}

;AppVerName={#MyAppName} {#MyAppVersion}

AppPublisher={#MyAppPublisher}

AppPublisherURL={#MyAppURL}

AppSupportURL={#MyAppURL}

AppUpdatesURL={#MyAppURL}

DefaultDirName={pf}\{#MyAppName}

DefaultGroupName={#MyAppName}

OutputBaseFilename=setup

Compression=lzma

SolidCompression=yes

[Languages]

Name: "english"; MessagesFile: "compiler:Default.isl"

[Tasks]

Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]

Source: C:\Program Files (x86)\ISTool\isxdl.dll; Flags: dontcopy;

Source: "CheckOfficeConsole\bin\Release\CheckOfficeConsole.exe"; DestDir: "{app}"; Flags: ignoreversion

Source: "CheckOfficeConsole\DotNetFramework\*"; DestDir: "{tmp}"; Flags: ignoreversion

Source: "Excel2010Setup\Excel2010Setup\Express\DVD-5\DiskImages\*"; DestDir: "{app}\2010"; Flags: ignoreversion recursesubdirs createallsubdirs

; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]

Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"

Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}" 

;更改显示在程序中显示的消息文本

[Messages]

BeveledLabel=Ivan Code

[Run]

;Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent

Filename: "{app}\{#MyAppExeName}"

[Code]

var

    dotNetDownloadNeeded: boolean;

    dotNetLocalPath:string;

procedure isxdl_AddFile(URL, Filename: PAnsiChar);

external 'isxdl_AddFile@files:isxdl.dll stdcall';

function isxdl_DownloadFiles(hWnd: Integer): Integer;

external 'isxdl_DownloadFiles@files:isxdl.dll stdcall';

function isxdl_SetOption(Option, Value: PAnsiChar): Integer;

external 'isxdl_SetOption@files:isxdl.dll stdcall';

//检测是否存在特定版本的.net framework

function IsDotNetDetected(version: string; service:cardinal): boolean;

// Indicates whether the specified version and service pack of the .NET Framework is installed.

//

// version -- Specify one of these strings for the required .NET Framework version:

//    'v1.1.4322'     .NET Framework 1.1

//    'v2.0.50727'    .NET Framework 2.0

//    'v3.0'          .NET Framework 3.0

//    'v3.5'          .NET Framework 3.5

//    'v4\Client'     .NET Framework 4.0 Client Profile

//    'v4\Full'       .NET Framework 4.0 Full Installation

//    'v4.5'          .NET Framework 4.5

//

// service -- Specify any non-negative integer for the required service pack level:

//    0               No service packs required

//    1, 2, etc.      Service pack 1, 2, etc. required

var

    key: string;

    install, release, serviceCount: cardinal;

    check45, success: boolean;

begin

    // .NET 4.5 installs as update to .NET 4.0 Full

    if version = 'v4.5' then begin

        version := 'v4\Full';

        check45 := true;

    end else

        check45 := false;

    // installation key group for all .NET versions

    key := 'SOFTWARE\Microsoft\NET Framework Setup\NDP\' + version;

    // .NET 3.0 uses value InstallSuccess in subkey Setup

    if Pos('v3.0', version) = 1 then begin

        success := RegQueryDWordValue(HKLM, key + '\Setup', 'InstallSuccess', install);

    end else begin

        success := RegQueryDWordValue(HKLM, key, 'Install', install);

    end;

    // .NET 4.0/4.5 uses value Servicing instead of SP

    if Pos('v4', version) = 1 then begin

        success := success and RegQueryDWordValue(HKLM, key, 'Servicing', serviceCount);

    end else begin

        success := success and RegQueryDWordValue(HKLM, key, 'SP', serviceCount);

    end;

    // .NET 4.5 uses additional value Release

    if check45 then begin

        success := success and RegQueryDWordValue(HKLM, key, 'Release', release);

        success := success and (release >= 378389);

    end;

    result := success and (install = 1) and (serviceCount >= service);

end;

//准备安装.net framework需要的条件（本地还是联网）

function PreInstallDotNet(dotNetName:string;dotNetDownloadUrl:string):boolean;

begin

    if (not IsAdminLoggedOn()) then begin

      MsgBox('您电脑安装 Microsoft .NET Framework 需要管理员权限', mbInformation, MB_OK);

      Result := false;

    end else begin

        dotNetLocalPath := ExpandConstant('{src}') + '\'+dotNetName;

        if not FileExists(dotNetLocalPath)  then begin

            dotNetLocalPath := ExpandConstant('{tmp}') + '\'+dotNetName;

            if not FileExists(dotNetLocalPath)  then begin

                isxdl_AddFile(dotNetDownloadUrl, dotNetLocalPath);

                dotNetDownloadNeeded := true;

            end;

        end;

        SetIniString('install', 'dotnetRedist', dotNetLocalPath, ExpandConstant('{tmp}\dep.ini'));

    end;

end;

//执行安装.net framework

function DoInstallDotNet():boolean;

var

  hWnd: Integer;

  ResultCode: Integer;

begin

    result := true;

    hWnd := StrToInt(ExpandConstant('{wizardhwnd}'));

    // don’t try to init isxdl if it’s not needed because it will error on < ie 3

    if dotNetDownloadNeeded then begin

      isxdl_SetOption('label', '正在下载 Microsoft .NET Framework');

      isxdl_SetOption('des-c-r-i-p-tion', '您还未安装Microsoft .NET Framework. 请您耐心等待几分钟,下载完成后会安装到您的的计算机中。');

      if isxdl_DownloadFiles(hWnd) = 0 then result := false;

    end;

    if result = true  then begin

      if Exec(ExpandConstant(dotNetLocalPath), '/qb', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then begin

         // handle success if necessary; ResultCode contains the exit code

         if not (ResultCode = 0) then begin

           result := false;

         end;

      end else begin

         // handle failure if necessary; ResultCode contains the error code

         result := false;

      end;

    end;

end;

//检测是否安装了等于大于指定版本的.net framework

function IsIncludeFramework(version: string): boolean;

var

    isInclued:boolean;

begin    

    //最高版本的

    if IsDotNetDetected('v4.5',0) then begin

        isInclued := true;

    end else if version = 'v4.5' then begin

        PreInstallDotNet('dotNetFx45_Full_setup.exe','http://download.microsoft.com/download/B/A/4/BA4A7E71-2906-4B2D-A0E1-80CF16844F5F/dotNetFx45_Full_setup.exe');

    end else if IsDotNetDetected('v4\Full',0) then begin

        isInclued := true;

    end else if version = 'v4\Full' then begin

        PreInstallDotNet('dotNetFx40_Full_x86_x64.exe','http://download.microsoft.com/download/9/5/A/95A9616B-7A37-4AF6-BC36-D6EA96C8DAAE/dotNetFx40_Full_x86_x64.exe');

    end else if IsDotNetDetected('v4\Client',0) then begin

        isInclued := true;

    end else if version = 'v4\Client' then begin

         PreInstallDotNet('dotNetFx40_Client_x86_x64.exe','http://download.microsoft.com/download/5/6/2/562A10F9-C9F4-4313-A044-9C94E0A8FAC8/dotNetFx40_Client_x86_x64.exe');

    end else if IsDotNetDetected('v3.5',0) then begin

        isInclued := true;

    end else if Pos('v3.5',version) = 1 then begin

         PreInstallDotNet('dotNetFx35setup.exe','http://download.microsoft.com/download/7/0/3/703455ee-a747-4cc8-bd3e-98a615c3aedb/dotNetFx35setup.exe');

    end else if IsDotNetDetected('v3.0',0) then begin

        isInclued := true;

    end else if Pos('v3.0',version) = 1 then begin

         PreInstallDotNet('dotNetFx35setup.exe','http://download.microsoft.com/download/7/0/3/703455ee-a747-4cc8-bd3e-98a615c3aedb/dotNetFx35setup.exe');

    end else if IsDotNetDetected('v2.0.50727',0) then begin

        isInclued := true;

    end else if Pos('v2',version) = 1 then begin

        PreInstallDotNet('dotnetfx.exe','http://download.microsoft.com/download/5/6/7/567758a3-759e-473e-bf8f-52154438565a/dotnetfx.exe');

    end else if IsDotNetDetected('v1.1.4322',0) then begin

        isInclued:= true;

    end else if Pos('v1',version)=1 then begin

        PreInstallDotNet('dotNetFx35setup.exe','http://download.microsoft.com/download/7/0/3/703455ee-a747-4cc8-bd3e-98a615c3aedb/dotNetFx35setup.exe');

    end;

    result := isInclued;

end;

//取得自定义的配置

//     Setup.ini

//     [Custom]

//   dotNetVersion =  v4.5

function GetCustomConfig(key:string):string;

var

  myValue:string;

begin

  myValue:=ExpandConstant('{ini:{src}\Setup.ini,Custom,'+key+'}')

  result := myValue;

end;

function InitializeSetup(): Boolean;

begin

    //do something 

  result:= true;

end;

function NextButtonClick(CurPage: Integer): Boolean;

var

  dotNetVersion:string;

begin

    Result := true;

  if (CurPage = wpReady) then begin

    dotNetVersion := GetCustomConfig('dotNetVersion');

    if Length(dotNetVersion) = 0 then begin

       dotNetVersion := 'v4.0';

    end else if not (Pos('v',dotNetVersion) = 1) then begin

        dotNetVersion := 'v'+dotNetVersion;

    end;

    if not IsIncludeFramework(dotNetVersion) then begin

      if not DoInstallDotNet() then begin

         MsgBox('当前操作需要安装.NET Framework ' + dotNetVersion + '或以上版本。'#13#13

          '在尝试自动安装期间，似乎出现一些小问题（或用户取消了安装）,'#13

          '请重试尝试安装。', mbInformation, MB_OK);

        result:= false;

      end;

    end;

  end;

end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

var

  ErrorCode: Integer;

begin

  case CurUninstallStep of

    usUninstall:

      begin

        // 正在卸载

      end;

    usPostUninstall:

      begin

        //卸载完成

        ShellExec('open', 'http://www.IvanBy.com', '', '', SW_SHOW, ewNoWait, ErrorCode)

      end;

  end;

end;

巴特西

制作部署安装包：Inno Setup

制作部署安装包：Inno Setup

最新文章

热门文章