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

隐藏任务条托盘区中的时钟
// 隐藏时钟
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;

补充：软件开发 , Delphi ,

上一个：利用热键控制鼠标移动的一个程序
下一个：我做了一个关于动态增加、修改、删除树形结构的程序！愿与大家分享（附源代码）！！！