当全屏应用程序处于活动状态时，防止出现 Windows 任务栏

Question

我们有一个应用程序会显示一个小的“始终在顶部”窗口。这通常工作正常。与其他应用程序一样，当它处于活动状态时，任务栏会将其显示为选中状态。

现在将幻灯片模式的 PowerPoint 添加到组合中。我们的窗口是可见的，而 PowerPoint 拥有整个屏幕。一切都好。直到，也就是说，您单击我们的窗口，Windows 7 会显示选择了我们的应用程序的任务栏。任务栏被带到了 PowerPoint 全屏显示的前面，这引起了用户的困惑。特别是他们会点击任务栏上的图标，这会导致我们的应用程序最小化。

如果我们使用ExStyle CreateParams 设置WS_EX_TOOLWINDOW 并确保WS_EX_APPWINDOW 没有设置，那么我们就不会出现在Taskbar 中，但是Taskbar 无论如何还是被带到了最前面。如果有什么不同，使用的语言是 Delphi，XE 版本。

接下来的问题是，当我们的 Always on Top 应用程序被聚焦时，我们如何阻止 Windows 在 PowerPoint 顶部显示任务栏。

Answer 1

在之前的 cmets 中已经写过，这是 Windows 的行为。

就我个人而言，我使用了几个屏幕来避免这种行为：

• 第一个屏幕有任务栏
• 然后我将我的 powerpoint 显示到另一个没有任务栏的屏幕（扩展桌面）。

顺便说一句，我可以像这样管理您的期望...这不是很漂亮，但我认为它可以按您的预期工作：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, AppEvnts;

type
  TForm1 = class(TForm)
    aplctnvnts1: TApplicationEvents;
    procedure aplctnvnts1Deactivate(Sender: TObject);
    procedure aplctnvnts1Activate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    procedure SetTaskBarVisible(bVisible: Boolean);
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SetTaskBarVisible(bVisible: Boolean);
const
//  START_BUTTON_LABEL = 'Démarrer';
  START_BUTTON_LABEL = 'Start';
begin
  if bVisible then
  begin
    ShowWindow(FindWindow('Shell_TrayWnd', nil               ), SW_SHOW);
    ShowWindow(FindWindow('Button'       , START_BUTTON_LABEL), SW_SHOW);
  end
  else if FindWindow('screenClass', nil) > 0 then  // Fullscreen PowerPoint
  begin
    ShowWindow(FindWindow('Shell_TrayWnd', nil               ), SW_HIDE);
    ShowWindow(FindWindow('Button'       , START_BUTTON_LABEL), SW_HIDE);
  end;
end;

procedure TForm1.aplctnvnts1Activate(Sender: TObject);
begin
  SetTaskBarVisible(False);
end;

procedure TForm1.aplctnvnts1Deactivate(Sender: TObject);
begin
  SetTaskBarVisible(True);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  SetTaskBarVisible(True);
end;

end.

Answer 2

听起来您希望您的小程序出现并通过它作为与 Powerpoint 关联的浮动工具栏来运行，以便用户认为他们仍在使用 Powerpoint 而不是单独的应用程序？

提供这种错觉的一种方法是在窗口上使用 whe WS_EX_NOACTIVATE 样式：当用户单击它时，您仍应获得可以处理的单击以触发您的功能，但 Powerpoint 应保持活动窗口。

请注意，这仅适用于您的应用只需要处理单击的情况；如果您需要接收键盘输入，则必须激活并获得焦点，并且窗口将照常显示任务栏。

（顺便说一句，还可以考虑使用 RegisterHotKey 实现热键，以便无法单击窗口的键盘用户仍然可以访问此功能。）