Delphi 移除无效的托盘图标.rar

Delphirefreshtray移除无效的Windows系统托盘图标，非鼠标移动模拟方法，相关的代码：　　begin　　hStatus:=FindWindow('Shell_TrayWnd',nil);//得到任务栏句柄　　ifnotiswindow(hStatus)thenexit;　　hNotify:=FindWindowEx(hStatus,0,'TrayNotifyWnd',nil);//右下角区域　　ifnotiswindow(hNotify)thenexit;　　hNotify1:=FindWindowEx(hNotify,0,'