删除已知进程ID的程序的系统托盘中的图标_注册表删除软件托盘图标-优快云博客

本文介绍了一种通过编程方式删除系统托盘中指定进程ID图标的方法。该方法利用了Windows API函数，包括获取系统托盘句柄、读写进程内存等步骤，实现了精确删除目标图标的功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

function GetSysTrayWnd :HWND; //得到系统托盘的句柄
begin
Result := FindWindow('Shell_TrayWnd',nil);
Result := FindWindowEx(Result,0,'TrayNotifyWnd',nil);
Result := FindWindowEx(Result,0,'SysPager',nil);
Result := FindWindowEx(Result,0,'ToolbarWindow32',nil);
end;

procedure DeleltIcon(TargetProcessID) //删除指定进程ID的托盘图标
var
TargetHwnd: HWND;
TBHWND:hwnd;
dwProcessID:dword;
i, count: Integer;
PID, PRC: THandle;
Buff: PChar;
Info: _TBBUTTON;
R: Cardinal;
S: array[0..1024] of char;
begin
TBHWND := GetSysTrayWnd; //得到托盘的窗口ID
if TBHWND = 0 then
begin
    showmessage('得到托盘的窗口ID失败');
    exit;
end;
GetWindowThreadProcessId(TBHWND, @PID); //通过托盘窗口ID到得到托盘进程ID
PRC := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE, False, PID); //得到托盘进程的句柄
if PRC = 0 then
begin
    showmessage('得到进程的句柄失败');
    exit;
end;
Buff := VirtualAllocEx(PRC, nil, 4096, MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);
count := SendMessage(TBHWND, TB_BUTTONCOUNT, 0, 0);
for i := 0 to count - 1 do
begin
    FillChar(Info, SizeOf(Info), 0);
    WriteProcessMemory(PRC, Buff, @Info, SizeOf(Info), R);//WriteProcessMemory。
    SendMessage(TBHWND, TB_GETBUTTON, i, Integer(Buff));
    ReadProcessMemory(PRC, Buff, @Info, SizeOf(Info), R);
    ReadProcessMemory(PRC, Pointer(Info.dwData), @TargetHwnd, 4, R);
    GetWindowThreadProcessId(TargetHwnd,@dwProcessID);

    if dwProcessID = TargetProcessID then
    begin
       SendMessage(TBHWND, TB_DELETEBUTTON, i, 0);
       break;
    end;
end;
VirtualFreeEx(PRC, Buff, 0, MEM_RELEASE);
CloseHandle(PRC);
end;