Başlat butonunu gizlemek veya kullanılamaz hale getirmek

procedure TForm1.Button1Click(Sender: TObject);

var

Rgn : hRgn;

begin

// Başlat butonunu gizle

Rgn := CreateRectRgn(0, 0, 0, 0);

SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWn d', nil),

0,'Button',nil),Rgn,true);

end;