Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Показываем/Скрываем System Tray

Delphi , Рабочий стол , TaskBar

Показываем/Скрываем System Tray

Автор: Ruslan Abu Zant

Вы, наверное, видели множество примеров, которые показывают как скрывать панель задач или кнопку Пуск. Но вот как скрыть только System Tray ?

Code:

procedure hideStartbutton(visi: boolean);
var
Tray, Child: hWnd;
C: array[0..127] of Char;
S: string;
 
begin
Tray := FindWindow('Shell_TrayWnd', nil);
Child := GetWindow(Tray, GW_CHILD);
while Child <> 0 do
   begin
     if GetClassName(Child, C, SizeOf(C)) > 0 then
       begin
         S := StrPAS(C);
         if UpperCase(S) = 'TRAYNOTIFYWND' then
           begin
             if Visi then
               ShowWindow(Child, 1)
             else
               ShowWindow(Child, 0);
           end;
       end;
     Child := GetWindow(Child, GW_HWNDNEXT);
   end;
end;

для того, чтобы обатно её показать, используйте

hideStartbutton(true);

или

hideStartbutton(false);

чтобы скрыть !!

Взято из http://forum.sources.ru

Статья Показываем/Скрываем System Tray раздела Рабочий стол TaskBar может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: TaskBar ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Rambler's Top100
20.08.2017 11:03:37/0.049888134002686/2