隐藏“就绪"按钮Inno Setup安装程序中的页面

问题描述

我有一个小的安装项目来运行vb.net项目，并以32位和64位运行安装/设置环境，而inno-setup可以帮助我运行正确的版本.这是代码，很简短.我的问题是DisableReadyPage=yes仍然显示准备安装"页面.如何摆脱它?

I have a little setup project to run vb.net project, installation/setup environment in 32 and 64 bits and inno-setup helps me to run the right version of it. Here is the code, it is short.My problem is that DisableReadyPage=yes still shows the ready to install page. How to get rid of it?

即使我禁用了[file]和[run]部分的准备安装页面，仍然存在...

Even if I disable [file] and [run] sections ready to install page is still there...

[Setup]
AppName=xxx Environment
AppVerName=xxx Environment
AppPublisher=zzz
AppPublisherURL=somewebaddress1
AppSupportURL=somewebaddress2
AppUpdatesURL=somewebaddress3
AppID="xxx Environment"
DefaultDirName={pf}\zzz
PrivilegesRequired=admin
DefaultGroupName=xxx Environment
CreateUninstallRegKey=no
DisableDirPage=yes
DisableProgramGroupPage=yes
DisableWelcomePage=yes
DisableReadyPage=yes
DisableFinishedPage=yes
DirExistsWarning=yes
OutputDir=.
OutputBaseFilename="Setup"

[Files]
Source: Unzip.exe; DestDir: {tmp}; Flags: deleteafterinstall
Source: Setup.zip; DestDir: {tmp}; Flags: deleteafterinstall

[Run]
Filename: "{tmp}\UNZIP.EXE"; Parameters: "{tmp}\Setup.zip -d {tmp}"
Filename: "{code:RunInstallExe}"

[Code]
function GetProcessorTypeId (): Integer;
var
  s: String;
  i: Integer;
begin

  case ProcessorArchitecture of
    paX86:  i := 1;//s := 'x86';
    paX64:  i := 2;//s := 'x64';
    paIA64: i := 3;//s := 'Itanium';
  else
    i := 0;//s := 'Unrecognized';
  end;
  Result := i;

end;

function RunInstallExe(Param: String): String;
var
  _path: string;
  _procId: Integer;
begin

  _procId := GetProcessorTypeId();
  if _procId = 1 then
    begin
      _path := ExpandConstant('{tmp}\Install86Environ.exe');
    end
  else if _procId = 2 then
    begin
      _path := ExpandConstant('{tmp}\Install86Environ.exe');;  //run in wow64 mode
    end
  else if _procId = 3 then
    begin
      _path := ExpandConstant('{tmp}\Install64Environ.exe');;
    end
  else
    begin
      _path := '';
    end

  if FileExists(_path) then
    begin
        Result := _path;
    end
  else
    begin
        MsgBox('Installation package not found.', mbCriticalError, MB_OK);
    end

end;

推荐答案

根据文档:

有了所有的Disable * Page指令，它就是显示的第一页.

With all of the Disable*Page directives you have, it's the first page that's being displayed.

禁用所有页面的目的是什么?

What is your goal in disabling all of the pages?

这篇关于隐藏“就绪"按钮Inno Setup安装程序中的页面的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！