Egy technikai megoldás, aminek semmi értelme, de azért bemutatom:

procedure TForm1.Button1Click(Sender: TObject);
var
  x1:Thandle;
  x2:array[0..50]of char;
begin
  strcopy(@x2[0],'shell_traywnd');
  x1:=findwindow(@x2[0],nil);
  showwindow(x1,sw_hide);
end;

És vissza:

procedure TForm1.Button1Click(Sender: TObject);
varb   x1:Thandle;
  x2:array[0..50]of char;
begin
  strcopy(@x2[0],'shell_traywnd');
  x1:=findwindow(@x2[0],nil);
  showwindow(x1,sw_restore);
end;