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;