在Delphi中如何实现将windows的任务栏设置为自动隐藏？

[yangxd]

要能够实现向手工更改windows任务栏一样的效果。

[uwslxcs2]

呵呵

[yangxd]

luoweicaisd(笑三少)你好，看了你的帖子，跟我以前写的是一样的，可能是我没有说清楚吧，我要的效果是向我们手工设置任务栏一样，按windows键后可以显示出来，鼠标往下移是可以显示，而不是真的把它藏起来。
急啊，应该用什么Api来实现呢？

[knock]

捕捉鼠标位置：getcursorpos 处理显示/隐藏
截获按键信息：再次处理显示/隐藏

[luoweicaisd]

Windows 系统方面


隐藏和显示 Windows 的任务条

--------------------------------------------------------------------------------

隐藏和显示 Windows 的任务条
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;



--------------------------------------------------------------------------------

[luoweicaisd]

Windows 系统方面


隐藏和显示 Windows 的任务条

--------------------------------------------------------------------------------

隐藏和显示 Windows 的任务条
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;



--------------------------------------------------------------------------------

[luoweicaisd]

Windows 系统方面


隐藏和显示 Windows 的任务条

--------------------------------------------------------------------------------

隐藏和显示 Windows 的任务条
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;



--------------------------------------------------------------------------------

[smhpnuaa]

自动隐藏和隐藏是不一个概念！前面各位的都不行！

[smhpnuaa]

这个函数微软好像没有公开阿！

[角落的青苔]

不知道~~~~帮你up吧~

[lingbin]

用API数

[yangxd]

诶，究竟有没有人能够解决啊，是要实现自动隐藏！！！

请高手指点！！！

[sean2000]

我想可以通过修改注册表实现，以下是任务栏的属性：
procedure TForm1.Button1Click(Sender: TObject);
var
TMydata: Tappbardata;
i :integer;
begin
TMydata.cbSize := sizeof (TMydata);
i := SHAppBarMessage ( ABM_GETSTATE,TMydata );
showmessage ( inttostr (i));

（* 0: 自动隐藏和总在顶端没设定
1: 总在顶端没设定，自动隐藏设定
2: 总在顶端设定，自动隐藏没设定
3: 总在顶端设定，自动隐藏设定
*）
end;
记得添加ShellAPI单元。

[kuangke]

procedure HideTray_wnd;
var hwnd:THandle;
begin
hwnd:=FindWindow(nil,'tray_wnd');
ShowWindow(SW_HIDE);
end;

[yangxd]

还是没有人能够回答吗？