Procedure TForm1.Button1Click(Sender: TObject); var
htaskbar: THandle;
begin
hTaskBar := FindWindow('Shell_TrayWnd', nil); ShowWindow(hTaskBar, SW_HIDE);
end;