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

Question

我们有一个应用程序显示一个小的“总在最上面”窗口。一般来说，这工作得很好。与其他应用程序一样，当它处于活动状态时，任务栏将其显示为已选中。

现在将幻灯片模式下的 PowerPoint 添加到组合中。我们的窗口是可见的，并且 PowerPoint 具有整个屏幕。一切都很好。直到您单击我们的窗口，Windows 7 才会显示任务栏并选择我们的应用程序。任务栏被置于 PowerPoint 全屏显示的前面，这导致用户感到困惑。特别是当他们点击任务栏上的图标时，这会导致我们的应用程序最小化。

如果我们使用 ExStyle CreateParams 设置 WS_EX_TOOLWINDOW 并确保未设置 WS_EX_APPWINDOW，那么我们不会出现在任务栏中，但任务栏仍然会被带到前面。如果有什么区别的话，使用的语言是Delphi，XE版本。

接下来的问题是，当我们的“Always on Top”应用程序处于焦点状态时，我们如何阻止 Windows 在 PowerPoint 顶部显示任务栏。

Answer 1

正如之前的评论中已经写的，这是 Windows 行为。

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

• 第一个屏幕有任务栏
• ，我将幻灯片显示到另一个没有任务栏的屏幕（扩展桌面）。

顺便说一句，我像这样管理你所期望的......这并不是很漂亮，但我认为它有效，正如你所期望的：

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 而不是单独的应用程序？

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

请注意，只有当您的应用程序需要做的只是处理单击时，这才有效；如果您需要接收键盘输入，则必须激活并获得焦点，窗口将像往常一样显示任务栏。

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