function StartButton: THandle; 
begin 
  result := findwindowex(findwindow('Shell_TrayWnd', nil), 0, 'Button', nil); 
end; 
 
// Der Starbutton nimmt die ganze Taskbar ein 
procedure TForm1.Button1Click(Sender: TObject); 
var b: THandle; 
begin 
  b := Startbutton; 
  showwindow(b, sw_hide); 
  showwindow(b, sw_showmaximized); 
end; 
 
// Der Starbutton verschwindet 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  showwindow(startbutton, sw_hide) 
end; 
 
// Der Starbutton wird wieder normal 
procedure TForm1.Button3Click(Sender: TObject); 
var b: THandle; 
begin 
  b := Startbutton; 
  showwindow(b, sw_hide); 
  showwindow(b, sw_shownormal); 
end; 
 
// Der Startbutton wird disabled 
procedure TForm1.Button4Click(Sender: TObject); 
begin 
  enablewindow(startbutton,false); 
end;