Inno Setup 制作安装程序[支持静默安装.NET环境]

1.贴源码

; 脚本由 Inno Setup 脚本向导 生成！
; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！

#define MyAppName "TestSet"
#define MyAppVersion "1.0"
#define MyAppPublisher "ZCF"
#define MyAppURL "http://www.zcfsky.com/"
#define MyAppExeName "TestApp.exe"

[Setup]
; 注: AppId的值为单独标识该应用程序。
; 不要为其他安装程序使用相同的AppId值。
; (生成新的GUID，点击 工具|在IDE中生成GUID。)
AppId={{A7293410-B577-4984-939A-4969DC799A5C}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}\测试程序\
UsePreviousAppDir=yes
DefaultGroupName=TestApp
AllowNoIcons=yes
OutputBaseFilename=setup
SetupIconFile=D:\安装程序\TestApp\book.ico
Compression=lzma
SolidCompression=yes

:管理员权限
PrivilegesRequired=admin
[Languages]
Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; OnlyBelowVersion: 0,6.1
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "D:\安装程序\TestApp\TestApp.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\安装程序\TestApp\TestApp.exe.config"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\安装程序\TestApp\readme.txt"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\安装程序\TestApp\include\dotnetfx.exe"; DestDir: "{tmp}"; Check:IsNeedInstall ; CopyMode:onlyifdoesntexist;Flags: ignoreversion deleteafterinstall
; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{group}\查看述文件"; Filename: "{app}\readme.txt"
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon;
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon

[code]
var
isNeedDF : Boolean;
function IsNeedInstall():Boolean;
begin
  isNeedDF := true;
  if (RegKeyExists(HKLM, 'Software\Microsoft\.NETFramework\policy\v2.0')) then
  begin
  isNeedDF := false;
  Result := false;
  end
  else
  Result := true;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
pt:string;
ResultCode:Integer;
begin
  if(CurStep=ssPostInstall) then
  begin
    if isNeedDF then
    begin
      pt:=  ExpandConstant('{tmp}\dotnetfx.exe');
      if(FileExists(pt)) then
      begin
        if(not Exec(pt,'/q:a /c:"install.exe /qb"','',SW_HIDE,ewWaitUntilTerminated,ResultCode)) then
        begin
          MsgBox('.NET运行环境安装失败，请手动安装！', mbInformation, MB_OK);
        end;
      end
      else
      begin
        MsgBox('未找到文件'+pt, mbInformation, MB_OK);
      end;
    end
    else
      MsgBox('You Neednt Install .NET Framework 2.0', mbInformation, MB_OK);
  end;
end;

[Messages]
BeveledLabel= CoSail Software Co,Ltd.

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

2.关键位置解释

[Tasks]代码段Flags: unchecked 去掉默认就是选择的
[Files]代码段中加上Check:IsNeedInstall ;就是一个检查是否处理的判断，其中IsNeedInstall是在[Code]代码段中自定义的一个函数。

[Run]代码段Flags加一个unchecked就是安装完毕，"运行本程序"不勾选，默认没有这一项。

 

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/zhchfsky/archive/2010/11/27/6039748.aspx