procedure ShowTaskBar(bShow: Boolean);
begin
if bShow = True then
    ShowWindow(FindWindow('Shell_TrayWnd',nil), SW_SHOWNA)
else ShowWindow(FindWindow('Shell_TrayWnd',nil), SW_HIDE);
end;