怎样控制woindows任务栏的自动隐藏属性？

Question

获得是否自动隐藏
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/ 
一定要给分呀!!

Answer 1

qywjg(梦想一生):谢谢！我会给你分数的，哈哈.