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;
Просмотров: 1829
Copyright © 2008-2012 Программирование на Delphi для начинающих и не только
Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам
Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации
Хостинг от uCoz