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;