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

页面导航:首页 > 软件编程 > Delphi > 隐藏任务条托盘区中的时钟

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

来源: 作者: 时间:2016-01-21 09:33 【

隐藏任务条托盘区中的时钟// 隐藏时钟procedure TForm1.Button1Click(Sender: TObject);var hn : HWnd;begin hn := FindWindowEx(FindWindowEx(FindWindow(Shell_TrayWnd,nil),0, TrayNotifyWnd,nil),0,Tr

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

// 隐藏时钟
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;
Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <