Delphi隐藏和顯示Windows的工作列

//隐藏任務條

procedure HideTaskBar;

var

  h1: THandle;

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

begin

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

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

  ShowWindow(h1, SW_HIDE);

End;

//顯示任務條

procedure ShowTaskBar;

var

  h1: THandle;

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

begin

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

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

  ShowWindow(h1,SW_RESTORE);

end;