我正在使用 Inno Setup 为我的 .NET 开发项目创建一个 BootStrapper。

在使用 PascalScript 时,我遇到了一些问题。但在此之前,这是我用来创建 BootStrapper 的脚本

#define MyAppName "<ProductName>"
#define MyAppVersion "<ProductVersion>"
#define MyAppPublisher "<Company Name>"
#define MyAppURL "<URL>"
#define MyAppExeName "<AppName>.exe"
#define MyAppCopyright "Copyright@2015"
#define MyContact "<Contact No>"

[Setup]
AppId={{69A884D3-671F-4DFB-9E23-F6FA35BD6264}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DisableDirPage=yes
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
LicenseFile=<License File Path>
OutputDir=<Output Directory Path>
OutputBaseFilename=<Output File Name>
Compression=lzma
SolidCompression=yes
SetupIconFile=<Icon File Path>
ArchitecturesInstallIn64BitMode=x64
AppCopyright={#MyAppCopyright}
AppContact={#MyContact}
VersionInfoVersion=1.5
VersionInfoCompany=<Company Name>
VersionInfoProductName=<Product Name>
VersionInfoProductVersion=<Product Version>

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

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

[Files]
Source: "<Path>\NDP452-KB2901907-x86-x64-AllOS-ENU.exe"; DestDir: "{tmp}"; Flags: deleteafterinstall; Permissions: admins-full; Check: Framework45IsNotInstalled
Source: "<Path>\CRRuntime_32bit_13_0_13.msi"; DestDir: "{tmp}"; Flags: deleteafterinstall 32bit; Permissions: admins-full;
Source: "<Path>\CRRuntime_64bit_13_0_14.msi"; DestDir: "{tmp}"; Flags: 64bit deleteafterinstall; Permissions: admins-full; Check: IsWin64
Source: "<Path>\SSCERuntime_x86-ENU.exe"; DestDir: "{tmp}"; Flags: deleteafterinstall 32bit; Permissions: admins-full
Source: "<Path>\SSCERuntime_x64-ENU.exe"; DestDir: "{tmp}"; Flags: 64bit deleteafterinstall; Permissions: admins-full; Check: IsWin64

Source: "<Path>\<Product>.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "<Path>\File1.dll"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Run]
Filename: {tmp}\NDP452-KB2901907-x86-x64-AllOS-ENU.exe; Parameters: "/q /norestart"; Check: Framework45IsNotInstalled; StatusMsg: Microsoft Framework 4.0 is being installed. This process might take some time. Please wait.....

Filename: "msiexec.exe"; Parameters: "/i ""{tmp}\CRRuntime_32bit_13_0_13.msi"; StatusMsg: Crystal Reports Runtime is being installed. Please wait....;

Filename: {tmp}\SSCERuntime_x86-ENU.exe; StatusMsg: Microsoft SQL Compact 4.0 is being installed. Please wait.....

[Code]
function Framework45IsNotInstalled(): Boolean;
var
  regresult: Cardinal;
begin
  RegQueryDWordValue(HKLM, 'Software\Microsoft\NET Framework Setup\NDP\v4\Full', 'Install', regresult);
  if (regresult = 0) then
  begin
    Result := True;
  end
  else
  begin
  Result := False;
  end;
end;

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
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

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

现在我有关于这个问题的三个问题:
  • 如何检查系统架构是 32Bit 还是 64Bit 并相应地执行相应的文件?

  • 例如正如脚本中提到的,我为 Crystal Reports 附加了两个文件,现在在执行 setup 时,setup 应该检测系统架构并运行相应的文件。我尝试使用 This Link here on StackOverdlow 解决这个问题,但不太明白。
  • 检查 Prerequisite 是否已经安装在系统上

  • 例如为了检查 .NET Framework 是否已经安装在机器上,我得到了上面提到的脚本并且它工作正常。如何为 Crystal ReportSQL Compact 做到这一点?

    我为 Crystal Report 尝试了这个脚本,但它不起作用。
    [Code]
    function CheckForCrystalReports: Boolean;
    var
      regresul: Cardinal;
    begin
      RegQueryDWordValue(HKLM, 'SOFTWARE\SAP BusinessObjects\Suite XI 4.0\Installer\CRV','Install',regresul);
      if(regresul = 0) then
      begin
      Result := True;
      end
      else
      begin
      Result := False;
      end;
    end;
    
  • 在静默模式下运行可执行文件

  • 例如在上面的脚本中,我使用 Parameters: "/q /norestart"; 在静默模式下运行设置及其工作。但是如何为 *.msi 文件做到这一点?我尝试了一些参数,但它们不起作用。

    最佳答案

    ShellExec 试试这个解决方案:

    [Run]
    Filename: "{tmp}\CRRuntime_32bit_13_0_13.msi"; Parameters: "/passive";
     Flags: shellexec waituntilterminated skipifdoesntexist;
     StatusMsg: "Crystal Reports Runtime is being installed. Please wait...";
    

    如果你想通过 MSIEXEC 调用:
    [Run]
    Filename: "msiexec.exe"; Parameters: "/passive /i ""{tmp}\CRRuntime_32bit_13_0_13.msi""";
     Flags: waituntilterminated skipifdoesntexist;
     StatusMsg: "Crystal Reports Runtime is being installed. Please wait...";
    

    附言在您来自 Comment 的代码片段中, Parameters 缺少引号。您应该使用 " 打开和关闭参数,然后如果您需要在参数行中使用引号,则必须使用它加倍。 ""
    对于 SQL Compact,您可以使用以下代码:
    [Files]
    Source: "C:\Temp\SSCERuntime_x64-ENU.exe"; DestDir: "{tmp}";
     Flags: nocompression deleteafterinstall uninsremovereadonly
    Source: "C:\Temp\SSCERuntime_x86-ENU.exe"; DestDir: "{tmp}";
     Flags: nocompression deleteafterinstall uninsremovereadonly
    
    [Run]
    Filename: "{tmp}\SSCERuntime_x64-ENU.exe"; Parameters: "/qn /i";
     Flags: waituntilterminated skipifdoesntexist;
     StatusMsg: SQL Compact 4.0 x64 is being installed. Please wait...;
     Check: (IsWin64) and (not IsSQLCompact40Installed);
    Filename: "{tmp}\SSCERuntime_x86-ENU.exe"; Parameters: "/qn /i";
     Flags: waituntilterminated skipifdoesntexist;
     StatusMsg: SQL Compact 4.0 x86 is being installed. Please wait...;
     Check: (not IsWin64) and (not IsSQLCompact40Installed);
    
    [Code]
    function IsSQLCompact40Installed(): Boolean;
    var
      InstallDirString : String;
    begin
      result := false;
      if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Microsoft SQL Server Compact Edition\v4.0',
       'InstallDir', InstallDirString) then begin
        if FileExists(InstallDirString + '\sqlcecompact40.dll') then
           result := true;
      end;
    end;
    

    10-07 19:09
    查看更多