procedure TForm1.CheckBox1Click(Sender: TObject);
const
ABM_SETSTATE = $000000A;
var
AppBarData: TAppBarData;
begin
AppBarData.cbSize := SizeOf(TAppBarData);
if CheckBox1.Checked then begin
AppBarData.lParam := ABS_AUTOHIDE;
end else begin
AppBarData.lParam := ABS_ALWAYSONTOP;
end;
SHAppBarMessage(ABM_SETSTATE, AppBarData);
end;
const
ABM_SETSTATE = $000000A;
var
AppBarData: TAppBarData;
begin
AppBarData.cbSize := SizeOf(TAppBarData);
if CheckBox1.Checked then begin
AppBarData.lParam := ABS_AUTOHIDE;
end else begin
AppBarData.lParam := ABS_ALWAYSONTOP;
end;
SHAppBarMessage(ABM_SETSTATE, AppBarData);
end;