刷新系统托盘

procedure RefreshTrayIcon;

{

  刷新系统托盘图标

}

var

hwndTrayToolBar : HWND;

rTrayToolBar : tRect;

x , y : Word;

begin

hwndTrayToolBar := GetSysTrayWnd;

Windows.GetClientRect(hwndTrayToolBar, rTrayToolBar);

x := 0;

while x < rTrayToolBar.right do

begin

  y := 0;

  while y < rTrayToolBar.bottom do

  begin

    SendMessage(hwndTrayToolBar , WM_MOUSEMOVE, 0, MAKELPARAM(x,y) );

    inc(y,8);

  end;

  inc(x, 8);

end;

end;