如何用代码来实现“任务栏和开始菜单”中的“自动隐藏”功能？急急急

Question

显示一个窗体时，我首先要判断任务栏是否隐藏？
    1、如果不隐藏，则实现“自动隐藏”功能，窗体最大化屏幕。当然用鼠标往最下方的人物栏哪里一放，我的任务栏显示出来，鼠标移走，任务栏隐藏。
    2、如果隐藏，则无需变动。请各位大侠帮忙！

Answer 1

procedure TForm1.Button1Click(Sender: TO b j e c t ) ;
var
WndHandle : THandle;
begin
// 获取任务栏的窗口句柄
WndHandle := FindWindow('Shell_TrayWnd', nil);
ShowWindow(WndHandle, SW_SHOW); // 显示任务栏
end ;
procedure TForm1.Button2Click(Sender: TObject) ;
var
wndHandle : THandle;
begin
WndHandle := FindWindow('Shell_TrayWnd',nil);
ShowWindow(WndHandle,SW_HIDE); // 隐藏任务栏
end ;

Answer 2

to zz5290
  你这个只是显示隐藏任务栏。
  问题是我隐藏了任务栏后，鼠标移到任务栏那个位置，任务栏就不出来了，这可能需要
跟鼠标的焦点有关，不知如何解决