Egy hátborzongató technikai megoldás, akinek a windows-át így piszkálgatod, az biztos elküld
melegebb éghajlatra.
Nincs:

procedure TForm1.Button1Click(Sender: TObject);
var x1,x2:hwnd;
begin
x1:=findwindow('shell_traywnd',nil);
x2:=getwindow(x1,gw_child);
showwindow(x2,0);
end;

Van:

procedure TForm1.Button1Click(Sender: TObject);
var x1,x2:hwnd;
begin
x1:=findwindow('shell_traywnd',nil);
x2:=getwindow(x1,gw_child);
showwindow(x2,1);
end;