Снять иконку соединения с интернет из Tray

Delphi , Интернет и Сети , Интернет

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 is the translation of the text into Russian:

Код, который вы предоставили, написан на Delphi и предназначен для удаления иконки трея, представляющей сеть. Вот разбивка на секции:

Клауза uses Клауза uses указывает, какие модули (библиотеки) необходимы для компиляции и запуска программы. В этом случае используется только модуль shellapi.

Процедура TForm1.Button1Click Это функция-обработчик событий, которая вызывается при клике на кнопку с именем Button1. Параметр Sender - объект типа TObject, представляющий компонент, который.triggered событие (в этом случае, кнопка).

Декларация переменных и инициализации Переменная nt объявлена как тип TNotifyIconData, который является структурой, используемой для представления уведомительной иконки в системном трее. Используется оператор with для инициализации полей структуры nt.

Вот, что каждый поле делает:

• cbSize: Размер структуры TNotifyIconData.
• Wnd: Уникальный идентификатор окна, владельца иконки (в этом случае, специальный идентификатор #32770, представляющий системный трей).
• uid: Уникальный идентификатор иконки.
• uFlags: Массив флагов, которые указывают, как взаимодействовать с иконкой. В этом случае, он установлен в NIF_ICON, NIF_MESSAGE и NIF_TIP, что означает, что иконка будет отображаться, можно отправлять сообщения на нее и ассоциировать с ней всплывающую подсказку.
• uCallbackMessage: Сообщение, которое будет отправлено окну при клике пользователем на иконку. В этом случае, оно установлено в WM_USER + 17.
• hIcon: Уникальный идентификатор иконки для отображения (установлен в 0 в этом случае).
• szTip: Текст всплывающей подсказки для иконки (установлен в пустую строку в этом случае).

Вызов Shell_NotifyIcon Функция Shell_NotifyIcon вызывается с следующими аргументами:

• NIM_DELETE: Это указывает, что действие - удаление.
• @nt: Указатель на структуру TNotifyIconData, инициализированную ранее.

Эта функция удаляет уведомительную иконку из системного трея. Когда вы запустите этот код и кликнете на кнопку, она должна удалить иконку сети из трея.

Альтернативное решение Если вам нужно удалить все иконки в системном трее сразу, можно использовать функцию Shell_NotifyIcon с действием NIM_DELETE и null-указателем как вторым аргументом. Это удалит все уведомительные иконки, зарегистрированные вашим программой.

Например:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Shell_NotifyIcon(NIM_DELETE, nil);
end;

Этот код удаляет все уведомительные иконки, зарегистрированные вашим программой, при клике на кнопку.

С помощью программы на Delphi можно удалить иконку соединения с интернет из трея Windows.

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

:: Главная :: Интернет ::