Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
KANSoftWare

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

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

Автор: 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

Автор статьи Ruslan Abu Zant предлагает способ скрывать или отображать только System Tray с помощью процедуры hideStartbutton на языке Delphi.


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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS




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


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


реклама


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-12-22 20:14:06
2025-07-06 04:29:34/0.0025620460510254/0