關於任務欄

　　想知道Taskbar是否可見，或者想隱藏它，可以用以下Windows API：

function IsTaskBarVisible: boolean;
var
  wndHandle : THandle;
  wndClass  : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  result := ShowWindow(wndHandle, SW_SHOWNA);
end;

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;