Delphi 10.4.2 Win32 VCL应用如何检测任务栏图标是否可见

问题背景 #

在Delphi 10.4.2 Win32 VCL 应用中，依托System.Win.Taskbar.TWinTaskbar类的DeleteTab、AddTab方法实现任务栏图标隐藏、显示切换时，存在两个核心痛点：

• 仅靠自维护的FTaskBarButtonIsHidden布尔标记，无法感知系统侧的真实状态（比如任务栏服务重启、组策略强制变更、窗口状态联动调整带来的标签列表变化）
• 尝试用Winapi.Windows.IsWindowVisible(Self.Handle)判断完全失效：该API仅检测窗口本身的WS_VISIBLE属性，而DeleteTab操作只是将窗口从任务栏标签列表中移除，不会修改窗口自身的可见属性，因此无论任务栏图标是否实际隐藏，只要窗口正常显示就会固定返回True

核心实现逻辑 #

Windows任务栏没有提供直接查询单个窗口标签状态的公开API，任务栏标签的可见性由系统内部的注册列表独立维护。

• 首先校准本地状态标记的同步逻辑：
  • 调用DeleteTab(Handle)返回成功时，代表任务栏图标已被移除，将FTaskBarButtonIsHidden标记置为True
  • 调用AddTab(Handle)返回成功时，代表任务栏图标已被重新注册，将FTaskBarButtonIsHidden标记置为False
• 要获取系统侧的真实状态，需要依托TWinTaskbar底层封装的ITaskbarList原生COM接口：
  1. 调用接口的HrGetTabList方法，获取当前任务栏所有已注册标签对应的顶层窗口句柄列表
  2. 遍历列表匹配当前窗体的句柄值：匹配成功即代表任务栏图标处于可见状态，匹配失败即代表图标已被隐藏
• 性能优化：不需要每次检测都新建TWinTaskbar实例，可在窗体初始化时创建一次长期复用的接口实例，减少重复COM初始化的开销

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