uses
ShellAPI;
{
If the taskbar auto-hide feature is enabled, you get TRUE from
function "IsTaskBarautoHideOn".
}
function IsTaskbarAutoHideOn : boolean;
var
ABData : TAppBarData;
begin
ABData.cbSize := sizeof(ABData);
Result :=
(SHAppBarMessage(ABM_GETSTATE, ABData)
and ABS_AUTOHIDE) > 0;
{
If the taskbar auto-hide feature is enabled, you get TRUE from
function "IsTaskBarautoHideOn".
}
function IsTaskbarAutoHideOn : boolean;
var
ABData : TAppBarData;
begin
ABData.cbSize := sizeof(ABData);
Result :=
(SHAppBarMessage(ABM_GETSTATE, ABData)
and ABS_AUTOHIDE) > 0;
end;
本文转自 OldHawk 博客园博客，原文链接：http://www.cnblogs.com/taobataoma/archive/2007/08/20/862672.html，如需转载请自行联系原作者
