Скрыть статус соединения с Интернетом с TrayBar

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
   shellapi;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   nt: TNotifyIconData;
 begin
   with nt do
   begin
     cbSize := SizeOf(nt);
     Wnd    := FindWindow('#32770', nil);
     uid    := 0;
     uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
     uCallbackMessage := WM_USER + 17;
     hIcon  := 0;
     szTip  := '';
   end;
   Shell_NotifyIcon(NIM_DELETE, @nt);
 end;

Here's the translation of the text into Russian:

Код на Delphi, который пытается скрыть статус соединения с Интернетом из панели инструментов TrayBar. Код использует unit Shellapi и определяет процедуру Button1Click, которая вызывается при клике кнопки с именем "Button1".

Разбивка кода:

1. Он объявляет переменную nt типа TNotifyIconData.
2. Он инициализирует переменную nt с 기본ными значениями, за исключением Wnd, uid и szTip. Эти переменные устанавливаются в FindWindow('#32770', nil), 0 и пустую строку соответственно.
3. Функция Shell_NotifyIcon вызывается с параметрами NIM_DELETE и указателем на переменную nt.

Цель этого кода - удалить уведомление из панели инструментов TrayBar, эффективно скрывая его. Однако, есть несколько проблем с этим кодом:

1. Функция FindWindow используется для поиска окна, связанного с панелью инструментов TrayBar, но второй параметр nil означает, что Delphi не будет искать окно с конкретным именем класса или заголовком. Это может привести к проблемам, если несколько окон имеют одинаковые имена класса или заголовки.
2. Переменная uid установлена в 0, что может быть неправильно. uid должен быть уникальным идентификатором для уведомления.
3. Переменная szTip - пустая строка, но она не используется в коде.

Чтобы улучшить этот код, вы могли бы:

1. Указать конкретное имя класса или заголовок окна TrayBar с помощью функции FindWindow.
2. Присвоить уникальное значение переменной uid.
3. Заполнить переменную szTip значимым сообщением, если это необходимо.

Альтернативное решение использует более конкретный подход:

uses
  shellapi;

procedure TForm1.Button1Click(Sender: TObject);
var
  nt: TNotifyIconData;
begin
  nt.cbSize := SizeOf(TNotifyIconData);
  nt.hWnd := FindWindow('Shell_TrayWnd', nil); // Найти окно TrayBar
  nt.uId := 1; // Присвоить уникальный ID уведомлению
  nt.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
  nt.uCallbackMessage := WM_USER + 17;
  nt.hIcon := 0; // Вы можете установить иконку, если это необходимо
  nt.szTip := 'Your TrayBar status'; // Установить значимое сообщение

  Shell_NotifyIcon(NIM_DELETE, @nt);
end;

В этом альтернативном решении функция FindWindow используется для поиска exact окна, связанного с панелью инструментов TrayBar, указав его имя класса 'Shell_TrayWnd'. Переменная uid присваивается уникальное значение 1. Вы можете изменить эти значения в соответствии с вашими требованиями.

Статья описывает способ скрытия статуса соединения с Интернетом из области задач (TrayBar) с помощью языка программирования Delphi и использованием функции Shell_NotifyIcon.

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

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

:: Главная :: TrayBar ::