如何删除 Windows 托盘区指定图标？

dbyoung

于 2021-07-22 16:35:31 发布

阅读量2k

点赞数

分类专栏： Delphi 系统文章标签：托盘图标 Delphi ToolbarWindow32 删除

本文链接：https://blog.csdn.net/dbyoung/article/details/119002716

版权

Delphi 同时被 2 个专栏收录

32 篇文章 6 订阅

订阅专栏

系统

23 篇文章 1 订阅

订阅专栏

本文介绍了如何在Delphi中利用WinAPI删除Windows任务栏上的QQ图标。通过查找并操作相关窗口句柄，获取按钮信息，比对按钮文字，最终调用TB_DELETEBUTTON函数来移除指定图标。提供的代码示例详细展示了实现过程，并在WIN10X64环境下进行了测试。

摘要由CSDN通过智能技术生成

一：原理
1、使用 TB_BUTTONCOUNT，获取按钮数量；
2、使用 TB_GETBUTTON，获取每一个按钮信息；
3、使用 TB_GETBUTTONTEXT，获取按钮文字；
4、比较文字，是否是你想要删除的图标。
5、使用 TB_DELETEBUTTON 删除图标。

二：实现
以删除 QQ 图标为例：

uses Winapi.CommCtrl;

procedure TForm1.btn1Click(Sender: TObject);
var
  hToolbar : THandle;
  I, Count : Integer;
  hProcess : THandle;
  PID      : THandle;
  Buffer   : Pointer;
  tbn      : TTBButton;
  intLen   : SIZE_T;
  strLength: Integer;
  strTBText: WideString;
begin
  hToolbar := FindWindow('Shell_TrayWnd', nil);
  hToolbar := FindWindowEx(hToolbar, 0, 'TrayNotifyWnd', nil);
  hToolbar := FindWindowEx(hToolbar, 0, 'SysPager', nil);
  hToolbar := FindWindowEx(hToolbar, 0, 'ToolbarWindow32', '用户提示通知区域');
  Count    := SendMessage(hToolbar, TB_BUTTONCOUNT, 0, 0);

  GetWindowThreadProcessId(hToolbar, @PID);
  hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, PID);
  Buffer   := VirtualAllocEx(hProcess, nil, SizeOf(TTBButton), MEM_COMMIT, PAGE_READWRITE);
  try
    for I := 0 to Count - 1 do
    begin
      intLen := 0;
      SendMessage(hToolbar, TB_GETBUTTON, I, Integer(Buffer));
      ReadProcessMemory(hProcess, Buffer, @tbn, SizeOf(TTBButton), intLen);
      strLength := SendMessage(hToolbar, TB_GETBUTTONTEXT, tbn.idCommand, Integer(Buffer));
      SetLength(strTBText, strLength);
      ReadProcessMemory(hProcess, Buffer, @(strTBText[1]), strLength * SizeOf(strTBText[1]), intLen);
      if (strTBText[1] = 'Q') and (strTBText[2] = 'Q') then
      begin
        SendMessage(hToolbar, TB_DELETEBUTTON, I, 0);
        Break;
      end;
    end;
  finally
    VirtualFreeEx(hProcess, Buffer, 0, MEM_RELEASE);
    CloseHandle(hProcess);
  end;
end;

测试环境：WIN10X64 + Delphi10.4.2
qq交流群：101611228