任务栏设置成自动隐藏

用下面的函数可以检查Win95的状态条是否处于自动隐藏状态。
源代码网推荐
源代码网推荐 ============
源代码网推荐 uses ShellAPI;
源代码网推荐
源代码网推荐 (*
源代码网推荐 若状态条为自动隐藏状态，则返回值为 TRUE
源代码网推荐
源代码网推荐 if(IsTaskBarautoHideOn)then
源代码网推荐 begin
源代码网推荐
源代码网推荐 // auto hide is ON
源代码网推荐
源代码网推荐 end;
源代码网推荐
源代码网推荐 *)
源代码网推荐
源代码网推荐 function IsTaskbarAutoHideOn : boolean;
源代码网推荐 var
源代码网推荐 ABData : TAppBarData;
源代码网推荐 begin
源代码网推荐
源代码网推荐 ABData.cbSize := sizeof(ABData);
源代码网推荐
源代码网推荐 Result := (SHAppBarMessage(ABM_GETSTATE, ABData) and
源代码网推荐 ABS_AUTOHIDE) > 0;
源代码网推荐
源代码网推荐 end;