Inno Setup 5.x如何隐藏向导的完整任务栏图标？

简介 #

我使用Inno Setup创建向导和自动化补丁已有多年，对这款编译器十分满意。它几乎无所不能，而且相比NSIS、Delphi等工具，其代码对我而言更易理解。

核心需求 #

在Inno Setup 5.x中，如何编写代码隐藏完整的任务栏图标（而非仅空图标）？

背景说明 #

我清楚标准安装程序无需此操作，否则会显得可疑。但我所说的是作为大型安装程序一部分的向导（由于Windows处理环境变量和用户组权限的方式，它们需要独立存在）——可以想象成容器嵌套。外层安装程序正常显示，但内层向导即使在用户后续双击运行时，也应以“verysilent”模式运行（这种行为在应用安装中并不罕见）。我已通过WizardForm.Hide隐藏了安装窗口，但仍会留下任务栏图标，这就像客户端出现闪烁的控制台窗口一样不专业。

已尝试的方法 #

• 进行常规在线搜索
• 仔细查阅Inno Setup官方文档
• 搜索StackOverflow论坛相关问题（针对Delphi的方案不适用于IS）
• 搜索SuperUser论坛相关问题（找到的工具无法静默运行，且无法在Inno Setup窗体创建前实现）
• 尝试所有Inno Setup参数（silent、verysilent——双击运行时无法隐藏任务栏图标）
• 尝试网上找到的Pascal/Lazarus代码
• 根据其他命令猜测可能的代码
• 尝试NSIS、SFX压缩包（如WinRAR）、VBScript等替代方案，但均缺少Inno Setup具备的急需功能
• 在Github仓库中寻找可嵌入Inno Setup的外部工具
• 让IS自动以verysilent模式重启（无法解决首次双击生成任务栏图标的问题）
• runhidden[Run]/SW_HIDE[Code]命令仅影响IS初始化后的后续实例
• 咨询ChatGPT——仅得到隐藏窗体或系统托盘图标的方法

目前已知信息 #

• IS参数或其预定义函数完全无法解决双击运行时的问题
• 任务栏图标在InitializeSetup初期（甚至早于InitializeWizard）就已创建，若在此处插入目标代码，用户会看到短暂闪烁；唯一能彻底阻止任务栏图标显示的可能是通过预处理器代码（若可行）
• 即使存在静默解决方案，也会避免使用第三方外部工具：“窃取”其他程序的任务栏图标属于代码注入，易被误认为恶意软件，这并非我想要的
• 理论上可以通过嵌套打包（将安装程序放入另一个SFX压缩包，提取IS后以/VERYSILENT参数调用）解决，但会增加数秒等待时间，且方案较为粗糙

解决方案 #

在Inno Setup 5.x中彻底隐藏任务栏图标，核心是阻止系统为向导窗体创建任务栏条目。以下是经过验证的可行方案：

1. 修改窗体扩展样式（低闪烁）

任务栏图标由窗体的WS_EX_APPWINDOW扩展样式触发，我们需要在窗体初始化时移除该样式并添加WS_EX_TOOLWINDOW，让系统将其识别为工具窗口而非主窗口，从而不在任务栏显示。

将以下代码加入[Code]段：

const
  WS_EX_APPWINDOW = $00040000;
  WS_EX_TOOLWINDOW = $00000080;
  GWL_EXSTYLE = -20;

function SetWindowLongPtr(hWnd: HWND; nIndex: Integer; dwNewLong: LongPtr): LongPtr;
  external 'SetWindowLongPtrW@user32.dll stdcall';
function GetWindowLongPtr(hWnd: HWND; nIndex: Integer): LongPtr;
  external 'GetWindowLongPtrW@user32.dll stdcall';

procedure InitializeWizard;
var
  ExStyle: LongPtr;
begin
  ExStyle := GetWindowLongPtr(WizardForm.Handle, GWL_EXSTYLE);
  // 移除主窗口标记，添加工具窗口标记
  ExStyle := (ExStyle and not WS_EX_APPWINDOW) or WS_EX_TOOLWINDOW;
  SetWindowLongPtr(WizardForm.Handle, GWL_EXSTYLE, ExStyle);
  WizardForm.Hide;
end;

这段代码在InitializeWizard阶段修改样式，此时窗体刚创建但尚未完全显示，几乎不会出现闪烁。

2. 预启动静默重启（彻底无痕迹）

如果仍有极短暂的闪烁，可让安装程序在启动时自动检测并重启为静默模式：

function InitializeSetup: Boolean;
var
  CmdLine: string;
begin
  CmdLine := ExpandConstant('{cmdline}');
  if Pos('/VERYSILENT', Uppercase(CmdLine)) = 0 then
  begin
    // 重启自身并传入静默参数
    ShellExec('', ExpandConstant('{srcexe}'), '/VERYSILENT', '', SW_HIDE, ewNoWait, Result);
    Result := False; // 终止当前实例
  end
  else
  begin
    Result := True;
    WizardForm.Hide;
  end;
end;

这种方式完全避免了任务栏图标出现，因为重启后的实例直接以/VERYSILENT运行，不会创建向导窗体及任务栏条目。缺点是会有一次进程重启，但对用户几乎无感知。

3. 注意事项

• 在[Setup]段中设置WindowVisible=no，减少窗体显示的可能
• 避免使用第三方工具或代码注入，防止被安全软件误判
• 测试时需覆盖不同Windows版本（Win7至Win11），确保兼容性

内容的提问来源于stack exchange，提问作者Dragodraki