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;