uses ShellApi; 
 
function AutoHideTaskbar : boolean; 
var 
  ABD : TAppBarData; 
begin 
  ABD.cbSize := sizeof(ABD); 
  Result := 
    (SHAppBarMessage(ABM_GETSTATE, ABD) 
     and ABS_AUTOHIDE) > 0; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if AutoHideTaskbar then 
    showmessage('Taskleiste automatisch ausblenden ist eingeschaltet')
    else 
     showmessage('Taskleiste automatisch ausblenden ist aus') 
end;