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

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

// 隐藏时钟

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;