Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты! Подскажите пожалуйста, как с помощью Delphi можно заставить панель задач автоматически скрываться?

Вопрос задал: alone (статус: Посетитель) Вопрос отправлен: 24 октября 2007, 15:54 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Feniks

Здравствуйте, Гадлевский Олег Вячеславович!
Копать надо в сторону ключа в реестре HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerDesktopComponents и параметра там Position. И если мне память не изменяет, то значение надо ставить :
Position=hex:2c,00,00,00,4b,00,00,00,00,00,00,00,b5,04,00,00,00,04,00,00,00,00,00,00,01,00,00,00,01,00,00,00,01,00,00,00,00,00,00,00,00,00,00,00
Почему именно такое, не знаю. Но это часто встречается в литературе...
Попробуйте сами поиграться с этой галочкой "Автоматически скрывать Панель задач" в свойствах Панели Задач и посмотреть что в реестр пишется.
А вот этим кодом можно определить включено ли автоскрытие у панели задач:

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);
var
hTaskBar : THandle;
begin
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_HIDE);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
hTaskBar : THandle;
begin
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_SHOWNORMAL);
end;

Ответ отправил: Feniks (статус: Бакалавр) Время отправки: 24 октября 2007, 18:40 Оценка за ответ: 4 Комментарий к оценке: Неужели нет API для такой задачи?...А прятать и показывать я знаю как... Всё равно спасибо

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.