求一隐藏任务栏的代码！！

Question

求一隐藏任务栏的代码！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
Var
 taskbarhandle : HWND;
begin
 taskbarhandle := FindWindow('Shell_TrayWnd', nil);
 ShowWindow(taskbarhandle, SW_HIDE);
end;

Answer 2

恢复代码如下：
procedure TForm1.Button2Click(Sender: TObject);
Var
 taskbarhandle : HWND;
begin
 taskbarhandle := FindWindow('Shell_TrayWnd', nil);
 ShowWindow(taskbarhandle, SW_RESTORE);
end;