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