delphi XE5如何把其它程序而不是本软件在通知区域的图标隐藏?不是关闭进程。请举个详细代码例子,如Shell_NotifyIcon能真正实际把进程DEVBIT.exe在通知区域隐藏图标
时间: 2023-03-09 14:59:52 浏览: 70
使用Shell_NotifyIcon API,你可以在Delphi XE5中实现隐藏指定进程的图标,代码如下:procedure HideIcon(const aProcessName: string);
var
Hwnd: HWND;
NotifyIconData: TNotifyIconData;
begin
Hwnd := FindWindow(nil, PChar(aProcessName));
if Hwnd <> 0 then
begin
FillChar(NotifyIconData, SizeOf(NotifyIconData), 0);
NotifyIconData.cbSize := SizeOf(NotifyIconData);
NotifyIconData.uFlags := NIF_ICON;
NotifyIconData.hWnd := Hwnd;
NotifyIconData.uID := 1;
Shell_NotifyIcon(NIM_DELETE, @NotifyIconData);
end;
end;