Start gomb eltüntetése (XP)

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,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;