begin//Delphi 动态最小化到状态栏图标区中 HTray := FindWindowEx(FindWindow(Shell_TrayWnd, nil), 0, TrayNotifyWnd, nil); if hTray 0 then begin FRect := form1.BoundsRect; GetWindowRect(HTray, TrayRect); if not DrawAnimatedRects(form1.Handle,
Delphi refreshtray移除无效的Windows系统托盘图标,非鼠标移动模拟方法,相关的代码: begin hStatus := FindWindow(Shell_TrayWnd,nil); //得到任务栏句柄 if not iswindow(hStatus) then exit; hNotify := FindWindowEx(hStatus,0,TrayNotifyWnd,nil); //右下角区域 if not iswindow(hNoti