Refresh taskbar icon Terminate other programs some programs have trays that will remain

2. Refresh taskbar icon
4. function Refreshtaskbaricon:integer;
6. Var
8. Hshelltraywnd:hwnd; //Task bar window
10. Htraynotifywnd:hwnd; //Taskbar right tray icon + time zone
12. Hsyspager:hwnd; //different systems may not have this layer
14. Htoolbarwindow32:hwnd; //tray icon window
16. R:trect;
18. width, height: integer;
20. X:integer;
22. Begin
24. Hshelltraywnd: = FindWindow (' Shell_traywnd ',nil);
26. Htraynotifywnd: = FindWindowEx (Hshelltraywnd,0,' traynotifywnd ',nil);
28. Hsyspager: = FindWindowEx (Htraynotifywnd,0,' syspager ',nil);
30. if (Hsyspager <> 0) Then
32. HToolbarWindow32: = FindWindowEx (Hsyspager,0,' ToolbarWindow32 ',nil)
34. Else
36. HToolbarWindow32: = FindWindowEx (Htraynotifywnd,0,' ToolbarWindow32 ',nil);
40. if (hToolbarWindow32 <> 0) Then
42. begin
44. GetWindowRect (HTOOLBARWINDOW32,R);
46. Width: = r. right-r. Left;
48. Height: = r. bottom-r. Top;
50. //From left to right mousemove from the middle of the taskbar, all icon states will be updated
52. For x: = 1 to width-1 do
54. SendMessage (Htoolbarwindow32,wm_mousemove,0,makelparam (X,trunc (height/2)));
56. end;
58. End

Refresh taskbar icon Terminate other programs some programs have trays that will remain