判断任务栏是否自动隐藏

   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;