![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Скрыть иконку в тулбар
buben © (2007-06-08 20:55:00)Как скрыть иконку стороннего приложения в тулбар(это иконки у часов) предположим я знаю хендл главной формы этого приложения. Если скрыть одну иконку нельзя, то как скрыть всю область.
??
DVM (2007-06-10 23:06:00) [1]
> 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;
JanMihail (2007-06-10 22:54:00) [2]
> DVM © (10.06.07 22:49) [5]
Совершенно с тобой согласен!
DVM (2007-06-10 22:49:00) [3]
> я про иконки, которые у часиков отображаются, скрыть бы
> их, что бы юзеры не лазили, куда попало. Всю панель с пуском
> скрывать не катит. Желательно онечн одну иконку скрыть.
Найди и скрой окно с классом SysPager. Это окно дочернее у TrayNotifyWnd, которое в свою очередь дочернее для Shell_TrayWnd
buben (2007-06-09 12:51:00) [4]Я ищу метод, как скрыть! у меня получалось скрыть быстрый запуск ... а с этим заминка
clickmaker (2007-06-09 12:49:00) [5]
> скрыть бы их, что бы юзеры не лазили, куда попало
может просто не запускать программы, которые эти иконки создают?
buben (2007-06-09 12:32:00) [6]я про иконки, которые у часиков отображаются, скрыть бы их, что бы юзеры не лазили, куда попало. Всю панель с пуском скрывать не катит. Желательно онечн одну иконку скрыть.
clickmaker (2007-06-09 09:59:00) [7]
> Если скрыть одну иконку нельзя, то как скрыть всю область
ты серьезно думаешь, что если туда даже иконка не влезет, то остальная область поместится?