任务栏设置成自动隐藏

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像

当前位置：> 程序开发 > 编程语言 > Delphi > 综合文章

任务栏设置成自动隐藏

作者:未知时间:2005-08-07 21:01 出处:编程爱好者网站责编:chinaitpower

摘要：任务栏设置成自动隐藏

用下面的函数可以检查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;

关闭本页