Inno Setup：仅当选择组件“X”时如何创建密码向导页面

var
  PasswordPage: TInputQueryWizardPage;

procedure InitializeWizard;
begin
  PasswordPage := CreateInputQueryPage(wpSelectComponents, '密码向导', '请输入密码', '请输入密码以继续安装:');
  PasswordPage.Add('密码:', False);
  PasswordPage.Add('确认密码:', False);
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  if PageID = PasswordPage.ID then
  begin
    Result := not IsComponentSelected('X');
  end
  else
  begin
    Result := False;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = PasswordPage.ID then
  begin
    WizardForm.NextButton.Enabled := False;
  end;
end;

procedure NextButtonClick(CurPageID: Integer; var AllowNext: Boolean);
begin
  if CurPageID = PasswordPage.ID then
  begin
    if PasswordPage.Values[0] <> PasswordPage.Values[1] then
    begin
      MsgBox('密码不匹配，请重新输入!', mbError, MB_OK);
      AllowNext := False;
    end
    else
    begin
      // 密码验证通过，允许继续安装
      AllowNext := True;
    end;
  end;
end;