function IsTaskbarAutoHideOn : Boolean;
var
ABData : TAppBarData;
begin
ABData.cbSize := SizeOf (ABData);
result := (SHAppBarMessage (ABM_GETSTATE, ABData) and ABS_AUTOHIDE) > 0
end;
procedure Tfrm_Main.Button31Click(Sender: TObject);
begin
if IsTaskbarAutoHideOn then
begin
showmessage('任务栏是自动隐藏的哦!');
end else
showmessage('任务栏不是自动隐藏的哦!');
end;
判断任务栏是否自动隐藏
最新推荐文章于 2021-06-03 20:52:37 发布