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;