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: 总在顶端设定，自动隐藏设定
//0，3我没测试，有可能不对
}
end;