Systray - sumir com o clock

Top  Previous  Next

procedure TForm1.Button1Click(Sender: TObject);

var 

  hn : HWnd;

begin

  hn := FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'TrayNotifyWnd',nil),0,'TrayClockWClass',nil);//die Uhr 

  if hn <> 0 then ShowWindow(hn,SW_HIDE);//Bye,bye,Baby 

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);//Hello, again 

end