DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: tms2021
今日帖子: 6
在线用户: 13
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 tuesdays (Tuesday) ▲▲▲△△ -
注册会员
2021/7/21 16:53:49
标题:
求方法, 中止进程后, 让右下角图标消失. 浏览:491
加入我的收藏
楼主:  // 找到QQ进程. 
 QQpid := GetPidFromProcessName('QQ.exe'); 

 // 然后中止进程. 
 if TerminateApp(QQpid , 60) <> taError then begin
     mmo1.Lines.Add('OK');
 end;

一切正常,  但桌面右下角的QQ图标仍然存在, 需要滑标移上去它才消失.. 
求方法, 中止后, 图标消失.
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 xingyuwan (liugguo) ★☆☆☆☆ -
注册会员
2021/7/21 17:35:41
1楼: 重启explorer.exe
----------------------------------------------
恭喜发财
作者:
男 tuesdays (Tuesday) ▲▲▲△△ -
注册会员
2021/7/21 17:45:58
2楼: 重启explorer.exe 会影响其它进程.
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 hs_kill (lzl_17948876) ★☆☆☆☆ -
普通会员
2021/7/21 20:41:56
3楼: https://blog.csdn.net/chenlycly/article/details/7669634
----------------------------------------------
http://www.cnblogs.com/lzl_17948876/
作者:
男 tuesdays (Tuesday) ▲▲▲△△ -
注册会员
2021/7/21 21:35:07
4楼: @hs_kill (lzl_17948876)

看不懂C代码..
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 tuesdays (Tuesday) ▲▲▲△△ -
注册会员
2021/7/21 21:39:01
5楼: 上述方法比较负责,但相对合理很多,但是这种方法只对win2000,XP系统有效,对与Win7却无能为力,没有效果。
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 hs_kill (lzl_17948876) ★☆☆☆☆ -
普通会员
2021/7/22 8:39:54
6楼: 都是API有啥看不懂的.....

而且人家里面有win7可用的代码
----------------------------------------------
http://www.cnblogs.com/lzl_17948876/
作者:
男 tuesdays (Tuesday) ▲▲▲△△ -
注册会员
2021/7/22 9:01:40
7楼: @hs_kill 
我是win11了.
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 blueflag (昆了) ★☆☆☆☆ -
盒子活跃会员
2021/7/22 9:21:58
8楼: 采用发送消息通知退出的方式,右下角图标就会退出。
----------------------------------------------
-
作者:
男 tuesdays (Tuesday) ▲▲▲△△ -
注册会员
2021/7/22 9:24:09
9楼: @blueflag (昆了)

怎么通知QQ退出?
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 wr960204 (武稀松) ★☆☆☆☆ -
盒子活跃会员
2021/7/22 12:08:04
10楼: 刷新托盘我记得进程死了,托盘图标上鼠标划过就会消失。
之前有人写过一个类似的代码,就是找到托盘区域,然后给他发WM_MouseMove消息
----------------------------------------------
武稀松http://www.raysoftware.cn
作者:
男 wntee (wntee) ▲▲▲△△ -
注册会员
2021/7/22 12:21:58
11楼: 搜索一下removedeadicon
现成的代码
----------------------------------------------
当前后左右都没有路时,命运一定是鼓励你向上飞了...
作者:
男 dbyoung (dbyoung) ★☆☆☆☆ -
普通会员
2021/7/22 15:48:17
12楼: 1、使用 TB_BUTTONCOUNT, 获取按钮数量;
2、使用 TB_GETBUTTON,获取每一个按钮信息;
3、使用 TB_GETBUTTONTEXT,获取按钮文字;
4、比较文字,是否是你想要删除的图标。
5、使用 TB_DELETEBUTTON 删除图标。
----------------------------------------------
武汉天气不好
作者:
男 tuesdays (Tuesday) ▲▲▲△△ -
注册会员
2021/7/22 16:03:12
13楼: @wr960204 (武稀松)
然后给他发WM_MouseMove消息

得知道图标位置..
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 fb4819 (方明) ★☆☆☆☆ -
盒子活跃会员
2021/7/22 16:05:55
14楼: procedure RemoveDeadIcons;
var
  TrayWindow : HWnd;
  WindowRect : TRect;
  SmallIconWidth : Integer;
  SmallIconHeight : Integer;
  CursorPos : TPoint;
  Row : Integer;
  Col : Integer;
begin
  { 获得任务栏句柄和边框}
  if TOSVersion.Major>=6 then //Win7以上
    TrayWindow := FindWindowEx(FindWindow('NotifyIconOverflowWindow',NIL),0,'ToolbarWindow32',NIL) else
    TrayWindow := FindWindowEx(FindWindow('Shell_TrayWnd',NIL),0,'TrayNotifyWnd',NIL);
  if not GetWindowRect(TrayWindow,WindowRect) then Exit;
  { 获得小图标大小}
  SmallIconWidth := GetSystemMetrics(SM_CXSMICON);
  SmallIconHeight := GetSystemMetrics(SM_CYSMICON);
  { 保存当前鼠标位置}
  GetCursorPos(CursorPos);
  { 使鼠标快速划过每个图标 }
  with WindowRect do
  begin
    for Row := 0 to (Bottom - Top) DIV SmallIconHeight do
      for Col := 0 to (Right - Left) DIV SmallIconWidth do
      begin
        SetCursorPos(Left + Col * SmallIconWidth, Top + Row * SmallIconHeight);
        Sleep(4);
      end;
  end;
  {恢复鼠标位置}
  SetCursorPos(CursorPos.X,CursorPos.Y);
  { 重画任务栏 }
  RedrawWindow(TrayWindow,NIL,0,RDW_INVALIDATE OR RDW_ERASE OR RDW_UPDATENOW);
end;
----------------------------------------------
vvvvvvvvvv
作者:
男 tuesdays (Tuesday) ▲▲▲△△ -
注册会员
2021/7/22 16:08:21
14楼: @ wntee (wntee)
谢谢, 代码的确可行.


procedure TForm1.RemoveDeadIcons;
var
 TrayWindow : HWnd;
 WindowRect : TRect;
 SmallIconWidth : Integer;
 SmallIconHeight : Integer;
 CursorPos : TPoint;
 Row : Integer;
 Col : Integer;
begin
 { 获得任务栏句柄和边框}
 TrayWindow := FindWindowEx(FindWindow('Shell_TrayWnd',NIL),0,'TrayNotifyWnd',NIL);
 if not GetWindowRect(TrayWindow,WindowRect) then
   Exit;
 { 获得小图标大小}
 SmallIconWidth := GetSystemMetrics(SM_CXSMICON);
 SmallIconHeight := GetSystemMetrics(SM_CYSMICON);
 { 保存当前鼠标位置}
 GetCursorPos(CursorPos);
 { 使鼠标快速划过每个图标 }
 with WindowRect do
 begin
   for Row := 0 to (Bottom - Top) DIV SmallIconHeight do
   begin
     for Col := 0 to (Right - Left) DIV SmallIconWidth do
     begin
       SetCursorPos(Left + Col * SmallIconWidth, Top + Row * SmallIconHeight);
       Sleep(10);  //发现这个地方参数为 0 的时候,有时候是不够的
     end;
   end;
 end;
 {恢复鼠标位置}
 SetCursorPos(CursorPos.X,CursorPos.Y);
 { 重画任务栏 }
 RedrawWindow(TrayWindow,NIL,0,RDW_INVALIDATE OR RDW_ERASE OR RDW_UPDATENOW);
end;
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 dbyoung (dbyoung) ★☆☆☆☆ -
普通会员
2021/7/23 7:05:28
15楼: 如何删除 Windows 托盘区指定图标?
https://blog.csdn.net/dbyoung/article/details/119002716
----------------------------------------------
武汉天气不好
作者:
男 tuesdays (Tuesday) ▲▲▲△△ -
注册会员
2021/7/23 11:48:01
16楼: @dbyoung
tbn      : TTBButton

这是哪个控件?
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 dbyoung (dbyoung) ★☆☆☆☆ -
普通会员
2021/7/23 11:56:38
17楼: 添加 Winapi.CommCtrl 单元引用。

博文已更新。
----------------------------------------------
武汉天气不好
作者:
男 tuesdays (Tuesday) ▲▲▲△△ -
注册会员
2021/7/26 14:04:41
18楼: @dbyoung 
代码还需要改进, 
QQ图标能够删除, 但留下空标. 如图片.
此帖子包含附件:
PNG 图像
大小:20.4K
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 dbyoung (dbyoung) ★☆☆☆☆ -
普通会员
2021/7/26 18:23:48
19楼: 我在 WIN10X64 下测试正常。没有你说的现象。
如果你也是在 WIN10X64 下测试的,请检查你的系统。卸载病毒软件试试。
----------------------------------------------
武汉天气不好
作者:
男 studyd (studyd) ▲▲△△△ -
注册会员
2021/7/27 8:09:36
20楼: 上面的代码在win10上测试了,弹出托盘无效,一直没有找到解决办法
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行46.875毫秒 RSS