Delphi隐藏和显示Windows的任务栏

//隐藏任务条
procedure HideTaskBar;
var
  h1: THandle;
  wndClass: array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  h1:= FindWindow(@wndClass[0], nil);
  ShowWindow(h1, SW_HIDE);
End;

//显示任务条
procedure ShowTaskBar;
var
  h1: THandle;
  wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  h1:= FindWindow(@wndClass[0], nil);
  ShowWindow(h1,SW_RESTORE);
end;