5,386
社区成员
发帖
与我相关
我的任务
分享怎样控制woindows任务栏的自动隐藏属性？
即在我的应用程序运行时，则判断当前Windows的任务栏是否是自动隐藏属性。如果不是
则修改为自动隐藏，程序退出时再恢复到任务栏的先前状态。
则修改为自动隐藏，程序退出时再恢复到任务栏的先前状态。
...全文
请发表友善的回复…
发表回复
rzg 2001-07-20
- 打赏
- 举报
qywjg(梦想一生):谢谢！我会给你分数的，哈哈.
qywjg 2001-07-20
- 打赏
- 举报
获得是否自动隐藏
function IsTaskbarAutoHideOn : Boolean;
var
ABData : TAppBarData;
begin
ABData.cbSize := SizeOf (ABData);
result := (SHAppBarMessage (ABM_GETSTATE, ABData) and ABS_AUTOHIDE) > 0
end;
procedure Tfrm_Main.Button31Click(Sender: TObject);
begin
if IsTaskbarAutoHideOn then
begin
showmessage('任务栏是自动隐藏的哦！');
end else
showmessage('任务栏不是自动隐藏的哦！');
end;
但是设置的我没有做过
应该是采取SHAppBarMessage(ABM_SETAUTOHIDEBAR, ABData);方式
注意先填充ABData的cbSize/hWnd/uEdge/lParam/
一定要给分呀!!
function IsTaskbarAutoHideOn : Boolean;
var
ABData : TAppBarData;
begin
ABData.cbSize := SizeOf (ABData);
result := (SHAppBarMessage (ABM_GETSTATE, ABData) and ABS_AUTOHIDE) > 0
end;
procedure Tfrm_Main.Button31Click(Sender: TObject);
begin
if IsTaskbarAutoHideOn then
begin
showmessage('任务栏是自动隐藏的哦！');
end else
showmessage('任务栏不是自动隐藏的哦！');
end;
但是设置的我没有做过
应该是采取SHAppBarMessage(ABM_SETAUTOHIDEBAR, ABData);方式
注意先填充ABData的cbSize/hWnd/uEdge/lParam/
一定要给分呀!!
shawnguo 2001-07-20
- 打赏
- 举报
cc
