Inno Setup 软件封装

例子：

       ; 脚本用 Inno Setup 脚本向导 生成。
 ; 查阅文档获取创建 INNO SETUP 脚本文件的详细资料！

 #define MyAppName "隧道照明系统客户端程序"
 #define MyAppVersion "1.5"
 #define MyAppPublisher "深圳市泰达鑫信息科技有限公司"
 #define MyAppURL "http://www.tdx-it.com/"
 #define MyAppExeName "TunnelLighting.exe"

 [Setup]
 ; 注意: AppId 的值是唯一识别这个程序的标志。
 ; 不要在其他程序中使用相同的 AppId 值。
 ; (在编译器中点击菜单“工具 -> 产生 GUID”可以产生一个新的 GUID)
 AppId={{71C8E092-1FB6-43ED-B5A4-CDD9281CC72D}
 AppName={#MyAppName}
 AppVersion={#MyAppVersion}
 ;AppVerName={#MyAppName} {#MyAppVersion}
 AppPublisher={#MyAppPublisher}
 AppPublisherURL={#MyAppURL}
 AppSupportURL={#MyAppURL}
 AppUpdatesURL={#MyAppURL}
 DefaultDirName={pf}\{#MyAppName}
 DisableDirPage=yes
 DefaultGroupName={#MyAppName}
 LicenseFile=D:\InstallPackage\Client\License.txt
 InfoAfterFile=D:\InstallPackage\Client\UpdateLog.txt.txt
 OutputDir=D:\InstallPackage
 OutputBaseFilename=TunnelLight
 SetupIconFile=D:\InstallPackage\Server\InstallIcon.ico
 Compression=lzma
 SolidCompression=yes

 [Languages]
 Name: "default"; MessagesFile: "compiler:Default.isl"
 Name: "chinesesimp"; MessagesFile: "compiler:Languages\ChineseSimp.isl"
 Name: "english"; MessagesFile: "compiler:Languages\English.isl"

 [Messages]
 BeveledLabel={#MyAppPublisher}
 ConfirmUninstall=您真的想要从电脑中卸载ISsample吗?%n%n按 [是] 则完全删除 % 以及它的所有组件;%n按 [否]则让软件继续留在您的电脑上.

 [Tasks]
 Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags:checkablealone
 ;unchecked

 [Files]
 Source: "D:\Program Files\Inno Setup 5\Plugins\ISXDL.dll"; Flags: dontcopy
 Source: "D:\InstallPackage\Client\TunnelLighting.exe"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\Aga.Controls.dll"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\Base.Common.dll"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\Base.Common.pdb"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\Base.Controller.dll"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\Base.Controller.pdb"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\Base.Dal.dll"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\Base.Dal.pdb"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\Base.Model.dll"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\Base.Model.pdb"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\License.txt"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\TunnelLighting.exe"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\TunnelLighting.exe.config"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\TunnelLighting.pdb"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\TunnelLighting.vshost.exe"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\TunnelLighting.vshost.exe.config"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\TunnelLighting.vshost.exe.manifest"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\UpdateLog.txt.txt"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\websocket-sharp.dll"; DestDir: "{app}"; Flags: ignoreversion
 Source: "D:\InstallPackage\Client\holePic\*"; DestDir: "{app}\holePic"; Flags: ignoreversion recursesubdirs createallsubdirs
 ; 注意: 不要在任何共享的系统文件使用 "Flags: ignoreversion"

 [Icons]
 Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
 Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
 Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

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

 [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';

  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) =  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 = ) 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 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 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) =  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) =  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 >= );
     end;

     result := success and (install = ) and (serviceCount >= service);
 end;
   //检测是否存在(已安装)特定版本的.net framework

 //-----------------------------------

   //取得自定义的配置
 //     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 IsIncludeFramework(version: string): boolean;
 var
     isInclued:boolean;
 begin

     //最高版本的
     if IsDotNetDetected('v4.5',) 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',) 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',) 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',) then begin
         isInclued := true;
     end else if Pos('v3.5',version) =  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',) then begin
         isInclued := true;
     end else if Pos('v3.0',version) =  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',) then begin
         isInclued := true;
     end else if Pos('v2',version) =  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',) then begin
         isInclued:= true;
     end else if Pos('v1',version)= then begin
         PreInstallDotNet('dotNetFx35setup.exe','http://download.microsoft.com/download/7/0/3/703455ee-a747-4cc8-bd3e-98a615c3aedb/dotNetFx35setup.exe');
     end;

     result := isInclued;
 end;

  //检测是否安装了等于大于指定版本的.net framework
 function NextButtonClick(CurPage: Integer): Boolean;
 var
   dotNetVersion:string;
 begin
     Result := true;

   if (CurPage = wpReady) then begin

     dotNetVersion := GetCustomConfig('dotNetVersion');
     if Length(dotNetVersion) =  then begin
        dotNetVersion := 'v4.0';
     end else if not (Pos('v',dotNetVersion) = ) then begin
         dotNetVersion := 'v'+dotNetVersion;
     end;

     if not IsIncludeFramework(dotNetVersion) then begin
       if not DoInstallDotNet() then begin
          MsgBox('当前操作需要安装.NET Framework ' + dotNetVersion + '或以上版本。'##
           '在尝试自动安装期间，似乎出现一些小问题（或用户取消了安装）,'#
           '请重试尝试安装。', 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.tdx-it.com', '', '', SW_SHOW, ewNoWait, ErrorCode)

       end;
   end;
 end;

 //软件卸载