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

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

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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有