如何将控制台程序隐藏到系统托盘并移除任务栏图标？

我希望控制台程序启动后隐藏到系统托盘。在GUI程序中用TTrayIcon实现毫无问题，但控制台程序里调用带SW_HIDE参数的ShowWindow，并用TNotifyIconData创建托盘图标后，控制台图标仍留在Windows任务栏。

原代码如下：

procedure HideShowConsoleWindow(isShowForm: Boolean);
var
  Style: LongInt;
  app: THandle;
begin
  app := GetConsoleWindow;
  Style := GetWindowLong(GetConsoleWindow, GWL_EXSTYLE);
  if isShowForm then
  begin
    SetWindowLong(app, GWL_EXSTYLE, Style or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
    ShowWindow(app, SW_HIDE);
  end
  else
  begin
    SetWindowLong(app, GWL_EXSTYLE, Style and not WS_EX_TOOLWINDOW or WS_EX_APPWINDOW);
    ShowWindow(app, SW_SHOW);
  end;
end;

procedure AddTrayIcon;
var
  NotifyIconData: TNotifyIconData;
begin
  FillChar(NotifyIconData, SizeOf(TNotifyIconData), 0);
  NotifyIconData.cbSize := SizeOf(TNotifyIconData);
  NotifyIconData.Wnd := GetConsoleWindow;
  NotifyIconData.uID := 1;
  NotifyIconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
  NotifyIconData.uCallbackMessage := $0400 + 1;
  NotifyIconData.hIcon := LoadIcon(0, IDI_APPLICATION);
  StrPCopy(NotifyIconData.szTip, 'My Console App');
  Shell_NotifyIcon(NIM_ADD, @NotifyIconData);
end;

解决方法 #

问题核心有两点：一是窗口样式修改顺序错误，二是控制台窗口无法处理GUI消息导致托盘交互失效。以下是修正方案：

关键修改点

• 先隐藏窗口再改样式：先调用ShowWindow(SW_HIDE)隐藏控制台，再调整窗口扩展样式，避免任务栏残留图标。
• 使用自定义消息窗口：控制台窗口不处理GUI消息，必须创建一个隐藏的消息窗口来绑定托盘图标，处理托盘的点击、双击等事件。
• 添加GUI消息循环：控制台程序默认没有消息循环，需要手动添加以响应托盘消息。

修正后的完整代码

var
  MsgWindowHandle: THandle;
  Msg: TMsg;

// 隐藏/显示控制台窗口
procedure HideShowConsoleWindow(isHide: Boolean);
var
  ConsoleHandle: THandle;
  ExStyle: DWORD;
begin
  ConsoleHandle := GetConsoleWindow;
  if ConsoleHandle = 0 then Exit;

  if isHide then
  begin
    // 先隐藏窗口
    ShowWindow(ConsoleHandle, SW_HIDE);
    // 修改扩展样式，移除任务栏图标属性
    ExStyle := GetWindowLongPtr(ConsoleHandle, GWL_EXSTYLE);
    SetWindowLongPtr(ConsoleHandle, GWL_EXSTYLE, ExStyle or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
  end
  else
  begin
    // 恢复扩展样式
    ExStyle := GetWindowLongPtr(ConsoleHandle, GWL_EXSTYLE);
    SetWindowLongPtr(ConsoleHandle, GWL_EXSTYLE, ExStyle and not WS_EX_TOOLWINDOW or WS_EX_APPWINDOW);
    // 显示窗口
    ShowWindow(ConsoleHandle, SW_SHOW);
  end;
end;

// 消息窗口处理函数
function MsgWindowProc(Wnd: THandle; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  Result := 0;
  if Msg = $0400 + 1 then // 托盘回调消息标识
  begin
    case lParam of
      WM_RBUTTONUP:
        // 可在此添加右键菜单逻辑
      WM_LBUTTONDBLCLK:
        // 双击托盘图标显示控制台
        HideShowConsoleWindow(False);
    end;
  end
  else
    Result := DefWindowProc(Wnd, Msg, wParam, lParam);
end;

// 创建隐藏的消息窗口
procedure CreateMsgWindow;
var
  WndClass: TWndClass;
begin
  WndClass.style := CS_HREDRAW or CS_VREDRAW;
  WndClass.lpfnWndProc := @MsgWindowProc;
  WndClass.cbClsExtra := 0;
  WndClass.cbWndExtra := 0;
  WndClass.hInstance := HInstance;
  WndClass.hIcon := 0;
  WndClass.hCursor := 0;
  WndClass.hbrBackground := 0;
  WndClass.lpszMenuName := nil;
  WndClass.lpszClassName := 'ConsoleTrayMsgWindow';
  RegisterClass(WndClass);

  MsgWindowHandle := CreateWindowEx(0, 'ConsoleTrayMsgWindow', '', WS_POPUP,
    0, 0, 0, 0, 0, 0, HInstance, nil);
end;

// 添加托盘图标
procedure AddTrayIcon;
var
  NotifyIconData: TNotifyIconData;
begin
  if MsgWindowHandle = 0 then Exit;

  FillChar(NotifyIconData, SizeOf(TNotifyIconData), 0);
  NotifyIconData.cbSize := SizeOf(TNotifyIconData);
  NotifyIconData.Wnd := MsgWindowHandle; // 绑定到自定义消息窗口
  NotifyIconData.uID := 1;
  NotifyIconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
  NotifyIconData.uCallbackMessage := $0400 + 1;
  NotifyIconData.hIcon := LoadIcon(0, IDI_APPLICATION);
  StrPCopy(NotifyIconData.szTip, 'My Console App');
  Shell_NotifyIcon(NIM_ADD, @NotifyIconData);
end;

begin
  CreateMsgWindow;
  AddTrayIcon;
  HideShowConsoleWindow(True);

  // 运行消息循环处理托盘事件
  while GetMessage(Msg, 0, 0, 0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end.

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