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: 总在顶端设定，自动隐藏设定
}
end;
记得添加ShellAPI单元。
