隐藏,显示任务栏

{隐藏任务栏}
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;