HIDE/SHOW TASKBAR
procedure TForm1.HideTaskbar;
var
   wndHandle : THandle;
   wndClass  : array[0..50] of Char;
begin
 StrPCopy(wndClass, 'Shell_TrayWnd');
 wndHandle := FindWindow(@wndClass[0], nil);
 ShowWindow(wndHandle, SW_HIDE); {This hides the Taskbar}
end;
 

procedure TForm1.ShowTaskbar;
var
   wndHandle : THandle;
   wndClass  : array[0..50] of Char;
begin
 StrPCopy(wndClass, 'Shell_TrayWnd');
 wndHandle := FindWindow(@wndClass[0], nil);
 ShowWindow(wndHandle, SW_SHOWNORMAL); {This Restores the Taskbar}
end;