隐藏,显示任务栏

{隐藏任务栏}
var
  hTray:HWND;
begin
  hTray:=FindWindow('Shell_TrayWnd',nil);
  ShowWindow(hTray,SW_HIDE);
end;

{显示任务栏}
var
  hTray:HWND;
begin
  hTray:=FindWindow('Shell_TrayWnd',nil);
  ShowWindow(hTray,SW_SHOW);
end;