如何在运行时从任务栏中隐藏我的任务栏图标？

Question

我已从以下网址下载 CoolTrayIcon v.4.4.0：

https://torry.net/files/vcl/system/trayicons/CoolTrayIcon.zip

在Delphi 10.4.2中安装组件后，在demo文件夹中，我打开了项目“CoolTrayTest”。在这个项目中，我在一个按钮点击处理程序中执行以下代码：

if IsWindowVisible(Application.Handle) then
  ShowWindow(Application.Handle, SW_HIDE);

这会隐藏任务栏图标。

但是当我在自己的 VCL 应用程序中尝试此代码时，任务栏图标并未隐藏。

如何让我自己的 VCL 应用程序也使用此代码隐藏任务栏图标？ （我不想在程序启动时隐藏TaskBar图标，而是故意点击一个按钮）。

编辑：根据 Remy 的建议，我使用以下代码：

procedure TForm1.btnTestClick(Sender: TObject);
var
  T: System.Win.Taskbar.TWinTaskbar;
begin
  T := System.Win.Taskbar.TWinTaskbar.Create;
  try
    if not FTaskBarButtonIsHidden then
    begin
      IsOK := T.DeleteTab(Self.Handle);
      CodeSite.Send('TForm1.btnTestClick: DeleteTab', IsOK);
      FTaskBarButtonIsHidden := IsOK;
    end
    else
    begin
      IsOK := T.AddTab(Self.Handle);
      CodeSite.Send('TForm1.btnTestClick: AddTab', IsOK);
      FTaskBarButtonIsHidden := not IsOK;
    end;
  finally
    T.Free;
  end;
end;

它似乎工作。这有什么副作用吗？

Answer 1

当Application.ShowMainFormOnTaskbar 属性为False 时，就像CoolTrayIcon 演示中的情况一样，任务栏按钮归隐藏的Application 窗口所有。

当ShowMainFormOnTaskbar 改为True 时（现代Delphi 项目中的默认情况），则任务栏按钮归Application.MainForm 窗口而非Application 窗口所有。

要隐藏/显示任务栏按钮，您需要隐藏/显示其所有者窗口。

或者，您可以使用 Win32 ITaskbarList Shell 接口的 DeleteTab() 和 AddTab() 方法。

有关更多详细信息，请参阅有关 The Taskbar 的文档。特别是“管理任务栏按钮”和“修改任务栏内容”部分。