Скрыть иконку в тулбар

← →
buben © (2007-06-08 20:55) [0]

Как скрыть иконку стороннего приложения в тулбар(это иконки у часов) предположим я знаю хендл главной формы этого приложения. Если скрыть одну иконку нельзя, то как скрыть всю область.

??

← →
clickmaker © (2007-06-09 09:59) [1]

> Если скрыть одну иконку нельзя, то как скрыть всю область

ты серьезно думаешь, что если туда даже иконка не влезет, то остальная область поместится?

← →
buben © (2007-06-09 12:32) [2]

я про иконки, которые у часиков отображаются, скрыть бы их, что бы юзеры не лазили, куда попало. Всю панель с пуском скрывать не катит. Желательно онечн одну иконку скрыть.

← →
clickmaker © (2007-06-09 12:49) [3]

> скрыть бы их, что бы юзеры не лазили, куда попало

может просто не запускать программы, которые эти иконки создают?

← →
buben © (2007-06-09 12:51) [4]

Я ищу метод, как скрыть! у меня получалось скрыть быстрый запуск ... а с этим заминка

← →
DVM © (2007-06-10 22:49) [5]

> я про иконки, которые у часиков отображаются, скрыть бы
> их, что бы юзеры не лазили, куда попало. Всю панель с пуском
> скрывать не катит. Желательно онечн одну иконку скрыть.

Найди и скрой окно с классом SysPager. Это окно дочернее у TrayNotifyWnd, которое в свою очередь дочернее для Shell_TrayWnd

> buben ©

Держи, пока я добрый:
function FindSysPagerWnd: HWND; var hwndShellTrayWnd: HWND; hwndTrayNotifyWnd: HWND; begin result := 0; hwndShellTrayWnd := FindWindow("Shell_TrayWnd", nil); if hwndShellTrayWnd <> 0 then begin hwndTrayNotifyWnd := FindWindowEx(hwndShellTrayWnd, 0, "TrayNotifyWnd", nil); if hwndTrayNotifyWnd <> 0 then result := FindWindowEx(hwndTrayNotifyWnd, 0, "SysPager", nil); end; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowWindow(FindSysPagerWnd, SW_HIDE); end;

Скрыть иконку в тулбар Найти похожие ветки