Вниз
Скачать: CL | DM;

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

← →
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


← →
JanMihail ©   (2007-06-10 22:54) [6]


> DVM ©   (10.06.07 22:49) [5]


Совершенно с тобой согласен!


← →
DVM ©   (2007-06-10 23:06) [7]


> 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;



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.018 c
5-1147886682
Любопытствующий
2006-05-17 21:24
2007.07.01
Наследник TImage с парочкой новых свойств


3-1175606550
serp
2007-04-03 17:22
2007.07.01
AppendRecord массивом


15-1180764370
ganda
2007-06-02 10:06
2007.07.01
Перевести значение String к типу LongInt


2-1181116531
Wolferio
2007-06-06 11:55
2007.07.01
Выбол Листа в Excel


2-1180678545
Wolferio
2007-06-01 10:15
2007.07.01
Запуск программы




   Наверх