windows 10中的delphi 10.2通知如何？

一般来说，我想通了通知，原来Delphi Tnotification 中的内置库- 只允许您在一个简单的示例上尝试通知，其余的必须使用微软文档处理。但我还没有完全弄清楚如何对事件做出反应。我想出了如何制作复杂的通知（带有图片和按钮）。

在我看来，Delphi 中的组件让人很难理解通知的工作原理。其实windows 10的通知其实就是一个XML文档

这是基本模板：

<toast>
  <visual>
    <binding template="ToastGeneric">
      тут указываем текст и картинку
    </binding>
  </visual>
  <actions>
     тут указываем кнопки
  </actions>
</toast>

正如我所达到的那样，我首先想找到一个纯粹在winapi上的干净代码，以便简单地形成我的文档并直接传输它，但我无法让这段代码工作：

https://stackoverflow.com/questions/32105337/how-to-add-a-text-node-to-a-toast-notification

然后我将组件的源代码复制到项目文件夹中，并开始修复我需要的功能，因为。如果我更改了源文件夹中的组件 - 更改不起作用...

我是怎么做的：我自己形成我需要的 XML 并将其传递给通知组件，为此我更改了组件中的函数，以便它接受我的代码

class function TToastTemplateGenerator.GetXMLDoc(const ANotification
  : TNotification): Xml_Dom_IXmlDocument;
// ...
begin
  // LTemplateType := SelectTemplate;
  Result :=  ANotification.Template;
  // Result := TToastNotificationManager.Statics.GetTemplateContent(ToastTemplateType.ToastText01);
  // остальной код функции можно закомментить

好吧，在通知类中，我添加了一个带有模板的字段

  TNotification = class(TPersistent)
    // ...
    Title: string;
    Template: Xml_Dom_IXmlDocument;

好吧，现在我的通知调用函数如下所示：

procedure TForm1.Button1Click(Sender: TObject);
var
  MyNotification: TNotification; //Defines a TNotification variable
  XML: String;
  hXML: HString;
begin

  XML :=
    '<toast activationType="protocol" launch="https://www.alta.ru" duration="short">' +
    '<visual>                                                                                       ' +
    '  <binding template="ToastGeneric">                                                             ' +
    '    <image placement="appLogoOverride" hint-crop="circle" src="file:///d:\downloads\alta.jpg"/> ' +
    '      <text hint-maxLines="1">Adaptive Tiles Meeting</text>                                    ' +
    '      <text>Conf Room 2001 / Building 135</text>                                              ' +
    '      <text>10:00 AM - 10:30 AM</text>                                                        ' +
    '      <image src="file:///d:\downloads\ketrin.jpg"/>                                          ' +
    '  </binding>                                                                                  ' +
    '</visual>                                                                                     ' +
    '  <actions>                                                                                    ' +
    '  <action content="Open Google" activationType="protocol" arguments="http://www.google.com"/>  ' +
    '  <action content="Open 2" activationType="protocol" arguments="http://yandex.ru"/>          ' +
    '</actions>                                                                           ' +
    '</toast>' ;


  MyNotification := NotificationCenter1. CreateNotification; //Creates the notification
  try
    MyNotification.Name := 'Windows10Notification'; //Defines the name of the notification. 
    MyNotification.Template := str_to_XML (XML);

    NotificationCenter1.PresentNotification(MyNotification); //Presents the notification on the screen.
  finally 
    MyNotification.Free; //Frees the variable
  end;
end;

次要功能

function HStr(Value: String): HString;
begin
  if NOT Succeeded(WindowsCreateString(PWideChar(Value), Length(Value), Result))
  then
    raise Exception.CreateFmt('Unable to create HString for %s', [Value]);
end;

function str_to_XML(Const XML: String): Xml_Dom_IXmlDocument;
var
  hXML: HString;
begin
  Result :=  TToastNotificationManager.Statics.GetTemplateContent(ToastTemplateType.ToastText01);
  hXML := HStr(XML);
  try
    (Result as Xml_Dom_IXmlDocumentIO).LoadXml(hXML);
  finally
    WindowsDeleteString(hXML);
  end;
end;

通过对点击的反应，我试图找出这个问题对 delphi 上 windows 10 通知操作的反应，我正在寻找解决方案。一旦我找到它，我会告诉你的。