隐藏托盘时间

阿杰

1. function   ShowTrayClock(bValue:   Boolean)   :   Boolean;   
   
2.       var   
   
3.           TrayWnd,   TrayNWnd,   ClockWnd:   HWND;   
   
4.       begin   
   
5.           TrayWnd     :=   FindWindow('Shell_TrayWnd',   nil);   
   
6.           TrayNWnd   :=   FindWindowEx(TrayWnd,   0,   'TrayNotifyWnd',   nil);   
   
7.           ClockWnd   :=   FindWindowEx(TrayNWnd,   0,   'TrayClockWClass',   nil);   
   
8.           Result   :=   IsWindow(ClockWnd);   
   
9.           if   Result   then   
   
10.           begin   
    
11.               ShowWindow(ClockWnd,   Ord(bValue));   
    
12.               PostMessage(ClockWnd,   WM_PAINT,   0,   0);   
    
13.           end;   
    
14.       end;   
    
15.   step2：将你的程序最小化到托盘中显示动态的修改托盘图标

复制代码

upring

呵呵 小代码一段