Перенос уведомлений NotifyIcon на TNotificationCenter в Delphi

Delphi , Синтаксис , Справочник по API-функциям

Перенос уведомлений NotifyIcon на TNotificationCenter в Delphi

В данной статье мы рассмотрим процесс переноса уведомлений, созданных с использованием API NotifyIcon, на новый механизм TNotificationCenter в среде разработки Delphi. Также мы обсудим преимущества такого перехода и рассмотрим, как это можно реализовать, учитывая, что поддержка TNotificationCenter появилась только в Delphi 10.0 Seattle.

Контекст и проблема

В вашем вопросе вы упомянули, что планируете обновить виджет и хотите выяснить, возможно ли заменить уведомления NotifyIcon (balloon tips) на TNotificationCenter. Вы также выразили обеспокоенность по поводу того, что в Delphi 2007 нет поддержки TNotificationCenter, и задались вопросом, можно ли настроить время отображения уведомления с помощью TNotificationCenter, поскольку таймаут в API NotifyIcon больше не работает.

Решение для Delphi 2007

Поскольку TNotificationCenter был добавлен в Delphi 10.0, для версий до этого (включая Delphi 2007) вам потребуется вручную обращаться к соответствующим API платформы. На Windows это будет WinRT ToastNotificationManager и ToastNotifier. Для работы с этими API вам потребуется использовать компоненты, такие как TMS XDataSet и TMS XDataSource, которые могут взаимодействовать с WinRT через COM-объекты.

Пример кода на Object Pascal для создания уведомления WinRT:

uses
  System.RoMemory,
  System.SysUtils,
  Winapi.Windows,
  Winapi.WindowsTypes,
  Winapi.ActiveX,
  System.SysWin;

type
  IToastNotificationManager = interface
    ['{5BBEFBB8-BB63-4C7D-9B29-5DCC2F30F02B}']
    function GetTemplateContent(aNotificationId: Integer): Variant; stdcall;
    function ShowToast(aNotification: Variant): HRESULT; stdcall;
  end;

  IToastNotifier = interface
    ['{36821D64-B3C5-4F60-B3C7-3F76C7ED12C1}']
    function CreateToastNotifier(aToastXml: Variant): IToastNotifier; stdcall;
    function ShowWithActivation(aToastXml: Variant): HRESULT; stdcall;
  end;

var
  NotificationManager: IToastNotificationManager;
  Notifier: IToastNotifier;
  NotificationXml: string;

begin
  NotificationXml := '<toast><visual><binding template=""'#10''
    <text>''Hello!''</text>'#10''
    <attributes>''''</attributes>'#10''
    <products>''''</products>'#10''
  </binding></visual></toast>';

  if not Suceeds(CoCreateInstance(@NotificationManager, nil, CLSCTX_ALL, IID_IToastNotificationManager, Pointer(NotificationManager))) then
    Exit;

  CoCreateInstance(@Notifier, nil, CLSCTX_ALL, IID_IToastNotifier, Pointer(Notifier));

  // Отправьте XML шаблон запроса шаблона уведомления
  NotificationXml := NotificationManager.GetTemplateContent(0);
  NotificationXml := NotificationXml + '<text>''' + NotificationXml + NotificationXml; // Вставьте ваш собственный XML шаблон или информацию для уведомления

  if not Suceeds(Notifier.ShowWithActivation(TWTP_DISMISS_ON_SHUTDOWN, NotificationXml)) then
    // Обработка ошибок
    ;
end;

Преимущества использования TNotificationCenter

Переход на TNotificationCenter может предложить ряд преимуществ перед старым API NotifyIcon, включая более гибкие возможности настройки и лучшую интеграцию с современными функциями операционной системы.

Настройка времени отображения уведомления

С TNotificationCenter вы можете настроить время отображения уведомления, используя свойства, предоставляемые API. Например, вы можете установить время жизни для уведомления и определить, когда оно должно быть автоматически скрыто.

Заключение

Переход с API NotifyIcon на TNotificationCenter в Delphi — это шаг вперёд, который позволит использовать новые возможности и улучшить совместимость с современными операционными системами. Однако для версий Delphi, предшествующих Delphi 10.0, вам потребуется использовать другие подходы для работы с уведомлениями, например, через WinRT API.

Создано по материалам из источника по ссылке.

Перенос уведомлений из одного механизма (NotifyIcon) в новый (TNotificationCenter) в среде разработки Delphi, учитывая особенности и ограничения разных версий Delphi.

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

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

:: Главная :: Справочник по API-функциям ::