ShowWindow 隐藏 显示任务栏

{隐藏任务栏}
procedure TForm1.Button1Click(Sender: TObject);
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 TForm1.Button2Click(Sender: TObject);
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;

通过 Wiz 发布