Спрятать и показать TaskBar

ОГЛАВЛЕНИЕ    HOME  MAIL

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_Hide);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_ShowNormal);
end;