阿杰 发表于 2012-4-21 09:50:32

隐藏托盘时间

function   ShowTrayClock(bValue:   Boolean)   :   Boolean;   
      var   
          TrayWnd,   TrayNWnd,   ClockWnd:   HWND;   
      begin   
          TrayWnd   :=   FindWindow('Shell_TrayWnd',   nil);   
          TrayNWnd   :=   FindWindowEx(TrayWnd,   0,   'TrayNotifyWnd',   nil);   
          ClockWnd   :=   FindWindowEx(TrayNWnd,   0,   'TrayClockWClass',   nil);   
          Result   :=   IsWindow(ClockWnd);   
          if   Result   then   
          begin   
            ShowWindow(ClockWnd,   Ord(bValue));   
            PostMessage(ClockWnd,   WM_PAINT,   0,   0);   
          end;   
      end;   
step2：将你的程序最小化到托盘中显示动态的修改托盘图标

upring 发表于 2015-4-3 09:11:19

呵呵 小代码一段
页: [1]
查看完整版本: 隐藏托盘时间