function ChangeTaskBarAutoHideOn(AutoHideTaskBar:Boolean):Boolean;
var
ABData : TAppBarData;
begin
Result:=False;
ABData.cbSize := SizeOf(ABData);
ABData.uCallbackMessage:=1;
if AutoHideTaskBar then
ABData.lParam:=1
else
ABData.lParam:=0;
Result := SHAppBarMessage(ABM_SETAUTOHIDEBAR, ABData)>0
end;
function IsTaskBarAutoHideOn : Boolean;
var
ABData : TAppBarData;
begin
ABData.cbSize := SizeOf(ABData);
Result := (SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_AUTOHIDE) > 0;
end;