隐藏显示任务栏

function SetTaskBar(LVisible: Boolean): Boolean; //隐藏-显示任务条
var
  h: THandle;
begin
  if LVisible then
  begin
    h:=FindWindow('Shell_TrayWnd',nil);
    ShowWindow(h, SW_SHOW); //隐藏任务条
  end
  else
  begin
    h:=FindWindow('Shell_TrayWnd',nil);
    ShowWindow(h,SW_HIDE); //显示任务条
  end;
  Result:=true;
end;