Delphi: Hide and Show TaskBar

procedure HideTaskbar;
var
  hTaskbar: HWND;
  isVisible: Boolean;
begin
  hTaskbar := FindWindow('Shell_TrayWnd', nil);
  if hTaskbar <> 0 then
  begin
    isVisible := IsWindowVisible(hTaskbar);
    if isVisible=True then
      ShowWindow(hTaskbar, SW_HIDE);
  end;
end;

procedure ShowTaskbar;
var
  hTaskbar: HWND;
  isVisible: Boolean;
begin
  hTaskbar := FindWindow('Shell_TrayWnd', nil);
  if hTaskbar <> 0 then
  begin
    isVisible := IsWindowVisible(hTaskbar);
    if isVisible=False then
      ShowWindow(hTaskbar, SW_SHOW);
  end;
end;