Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

TaskBar Auto hide   Найти похожие ветки 

 
Vlad40   (2004-06-02 14:51) [0]

Мне нужно из программы переключать состояние TaskBar - включать или выключать флажок Auto hide. Какой параметр в Registry отвечает за этот флажок? (если это конечно сидит в Registry). Спасибо.


 
Vit@ly ©   (2004-06-02 14:55) [1]

Можно поробовать так:
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;


 
Vlad40   (2004-06-02 14:59) [2]

Попробовать-то можно. Но так я просто скрываю ли показываю окно таскбара. А мне его переводить в состояние Auto hide и наоборот


 
Vlad40   (2004-06-02 15:18) [3]

Кто-то может помочь?


 
MetalFan ©   (2004-06-02 15:31) [4]

http://www.delphisyte.ru/Articles/base2/taskbar_coords.html
может поможет?


 
Vlad40   (2004-06-03 11:30) [5]

По идее должно бы помочь. Но что-то не получается. Делаю так:

procedure TForm1.Button4Click(Sender: TObject);
var
 AppBarData  : TAppBarData;
begin
 AppBarData.hWnd   := FindWindow("Shell_TrayWnd", nil);
 AppBarData.cbSize := sizeof(AppBarData);
 AppBarData.lParam:=1;
 AppBarData.uEdge:=ABE_BOTTOM;
 SHAppBarMessage(ABM_SETAUTOHIDEBAR, AppBardata);
end;

В результате ничего не происходит. Не могу понять в чем моя ошибка


 
Vlad40   (2004-06-03 13:58) [6]

Удалено модератором
Примечание: Создание пустых сообщений



Страницы: 1 вся ветка

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.027 c
9-1080403189
miek
2004-03-27 18:59
2004.07.18
SpaceDiver (пока техно-демо)


14-1088594530
R
2004-06-30 15:22
2004.07.18
Какой программой Вы пользуетесь для регистрации


14-1088560114
Думкин
2004-06-30 05:48
2004.07.18
С днем рождения! 30 июня


3-1087989291
quQuev
2004-06-23 15:14
2004.07.18
Не получается считать из BLOB поля больше 32Kb


3-1087887417
SJ-79
2004-06-22 10:56
2004.07.18
Использование 2-х версий BDE на одном компе одновременно.