Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Рабочий стол » Определить, включено ли автоскрытие у панели задач

Определить, включено ли автоскрытие у панели задач

Автор: Акулов Николай

uses ShellAPI;
...
function IsTaskbarAutoHideOn: boolean;
var ABData: TAppBarData;
begin
  ABData.cbSize := sizeof(ABData);
  Result := (SHAppBarMessage(ABM_GETSTATE, ABData) and
             ABS_AUTOHIDE) > 0;
end;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsTaskbarAutoHideOn then
    ShowMessage('Включено')
  else
    ShowMessage('Выключено');
end;

Просмотров: 4177

Обсудить на форуме