如何在运行时向TaskBar隐藏TaskBar图标？

Question

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

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

在Delphi10.4.2中安装组件后，在演示文件夹中，我打开了项目"CoolTrayTest“。在此项目中，在单击处理程序按钮中，我执行以下代码：

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

这隐藏了TaskBar图标。

但是，当我在自己的VCL应用程序中尝试这段代码时，TaskBar图标并不隐藏。

我能做些什么来让我自己的VCL应用程序也用这段代码隐藏TaskBar图标？(我不想从程序开始时隐藏TaskBar图标，而是通过单击按钮来故意隐藏)。

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

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窗口。

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

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

有关任务栏的详细信息，请参阅有关文档。特别是关于“管理任务栏按钮”和“修改任务栏内容”的章节。