当前位置: 主页 > 浏览 >

隐藏任务条托盘区中的时钟

收藏 时间:2009-12-27 来源:查看 收藏:ktv3 阅读:356 标签:时钟  隐藏  托盘  任务  重现  
隐藏任务条托盘区中的时钟// 隐藏时钟 procedure TForm1.Button1Click(Sender: TObject); var hn : HWnd; begin hn := FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0, 'TrayNotifyWnd',nil),0,'TrayClockWClass',nil); if hn <> 0 then ShowWindow(hn

隐藏任务条托盘区中的时钟

// 隐藏时钟
procedure TForm1.Button1Click(Sender: TObject);
var
  hn : HWnd;
begin
  hn := FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,
            'TrayNotifyWnd',nil),0,'TrayClockWClass',nil); 
  if hn <> 0 then
    ShowWindow(hn,SW_HIDE); 
end;

// 重现时钟
procedure TForm1.Button2Click(Sender: TObject); 
var
  hn : HWnd; 
begin 
  hn := FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,
           'TrayNotifyWnd',nil),0,'TrayClockWClass',nil); 
  if hn <> 0 then 
    ShowWindow(hn,SW_SHOW);
end;

顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论 所有评论
你还没登录,请先登录后再来评论!
推荐内容
新知先觉