Tálca eltüntetés

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

 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);
var
x1:Thandle;
x2:array[0..50]of char;
begin
strcopy(@x2[0],'shell_traywnd');
x1:=findwindow(@x2[0],nil);
showwindow(x1,sw_restore);
end;