如果隐藏和显示Windows的任务条?仅仅调用以下的函数就可以.

procedure hideTaskbar; //隐藏

var

wndHandle : THandle;

wndClass : array[0..50] of Char;

begin

StrPCopy(@wndClass[0], 'Shell_TrayWnd');

wndHandle := FindWindow(@wndClass[0], nil);

ShowWindow(wndHandle, SW_HIDE);

End;

procedure showTaskbar;

var

wndHandle : THandle;

wndClass : array[0..50] of Char;

begin

StrPCopy(@wndClass[0], 'Shell_TrayWnd');

wndHandle := FindWindow(@wndClass[0], nil);

ShowWindow(wndHandle, SW_RESTORE);

end;

/////////////////////////////////////////////

procedure HideTaskBar;
var
  hApp: HWND;
  rcWork: TRect;
begin
  { get the taskbar handle }
  hApp := FindWindow('Shell_TrayWnd', '');
  if hApp <> 0 then begin
    { hide taskbar }
    ShowWindow(hApp, SW_HIDE);
    { set workarea to full screen }
    FullScreenArea;
  end;
end;
procedure ShowTaskBar;
var
  hApp: HWND;
  rcApp, rcWork: TRect;
begin
  { get the taskbar handle }
  hApp := FindWindow('Shell_TrayWnd', '');
  if hApp <> 0 then begin
    { restore taskbar }
    ShowWindow(hApp, SW_RESTORE);
    { set workarea excluding taskbar }
    StandardArea;
  end;
end;