Delphi 隐藏任务栏

procedure Tform1.Button1Click(Sender: TObject);
var
  wndHandle: THandle; //用于存储指定窗口的句柄
  wndClass: array[0..50] of Char; //用于存储类名
begin
  strPCopy(@wndClass[0], 'Shell_TrayWnd'); //获取任务栏类名
  wndHandle := FindWindow(@wndClass[0],nil); //获取任务栏窗口的句柄
  ShowWindow(wndHandle, SW_Hide); //隐藏Windows任务栏
end;