Start gomb letiltása (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:Thandle;
x2:array[0..50]of char;
begin
enablewindow(findwindowex(findwindow(
'shell_traywnd',nil),0,'button',nil),false);
end;
És vissza:
procedure TForm1.Button1Click(Sender: TObject);
var
x1:Thandle;
x2:array[0..50]of char;
begin
enablewindow(findwindowex(findwindow(
'shell_traywnd',nil),0,'button',nil),true);
end;