delphi - 任务栏可见吗？

Question

我需要知道是否已分配任务栏，但已选中“自动隐藏任务栏”，并且该任务栏被暂时隐藏。我有一个函数，如果已分配，则返回任务栏的高度；否则，返回零。

但是，如果设置了Windows“自动隐藏”选项，则该功能仍会返回任务栏的高度，尽管直到光标移至屏幕底部时才可见。

当我设定
Image.Height：= Screen.Height-MyTaskbarHeight
它将图像高度设置为好像任务栏始终可见。

用伪代码，我需要的是

if Taskbar.Assigned then
if Taskbar.AutoHide.Checked then // Assume it is hidden
    Image.Height:=Screen.Height else
    Image.Height:=Screen.Height-MyTaskbarHeight;

有什么建议？

谢谢

Answer 1

TAppBarData在ShellAPI中定义。

var
  ABData : TAppBarData;
  State: Cardinal;
begin
  ABData.cbSize := sizeof(ABData);
  State := SHAppBarMessage(ABM_GETSTATE, ABData);
  Result := (State and ABS_AUTOHIDE) = ABS_AUTOHIDE;
end;