System Delphi

Title: More about TaskBar
Question: How to know 2 properties (autohide and always on top) for the taskbar ?
Answer:
procedure TForm1.Button1Click(Sender: TObject);
var
TempABdata: Tappbardata;
i :integer;
begin
TempABdata.cbSize := sizeof (TempABdata);
i := SHAppBarMessage ( ABM_GETSTATE,TempABdata );
showmessage ( inttostr (i));
{ Notes:
0: means that the "always on top" is not checked , and "auto hide" is not checked
1: means that the "always on top" is not checked , and "auto hide" is checked
2: means that the "always on top" is checked , and "auto hide" is not checked
3: means that the "always on top" is not checked , and "auto hide" is not checked
}
end;
What does the result means?
0: means that the "always on top" is not checked , and "auto hide" is not checked
1: means that the "always on top" is not checked , and "auto hide" is checked
2: means that the "always on top" is checked , and "auto hide" is not checked
3: means that the "always on top" is not checked , and "auto hide" is not checked
// Note: this code is tested on Delphi 4 , Windows NT workstation 4