Windows Notification Reaktion

[sjansen]

Hi,

ich habe eine Verständnis Frage bzgl (Windows)-Notifications.

Einfacher ist vermutlich wenn ich erkläre, was ich erreichen möchte.
Wenn ein Benutzer auf eine gesendete Notification klickt, möchte ich eine Action ausführen (einen Link öffnen oder ein ShellExecute).
In RecieveLocalNotification komme ich aber nur, wenn die Notification noch gezeigt wird. Befindet sich die Notification nicht mehr auf dem Bildschirm, sondern wird nur noch im Benachrichtigungs-Teil von Windows angezeigt, funktioniert das ganze nicht mehr. Lässt sich das überhaupt umsetzen?

Vielen Dank

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Notification;

type
  TForm1 = class(TForm)
    btnSendNotification: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnSendNotificationClick(Sender: TObject);
  private
    { Private-Deklarationen }
    ANotificationCenter: TNotificationCenter;
    procedure RecieveLocalNotification(Sender: TObject; ANotification: TNotification);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnSendNotificationClick(Sender: TObject);
begin
  var tmpNotification: TNotification;
  tmpNotification := TNotification.Create;
  tmpNotification.Name := 'Windows Notification';
  tmpNotification.Title := 'My first Notification';
  tmpNotification.AlertBody := 'Notification send by my application.';
  ANotificationCenter.PresentNotification(tmpNotification);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ANotificationCenter := TNotificationCenter.Create(Self);
  ANotificationCenter.OnReceiveLocalNotification := RecieveLocalNotification;
end;

procedure TForm1.RecieveLocalNotification(Sender: TObject; ANotification: TNotification);
begin
  Beep;
end;

end.

[himitsu]

Nein, du machst alles richtig ... von dort kommt das Event einfach nie.

Es hilft auch kein

Delphi-Quellcode:

tmpNotification.HasAction := True;

.

[Union]

Wenn man das liest, wundert man sich nicht über die unvollständige Implementierung. Denn da die Aktivierung aus dem Action Center auch erfolgen kann, wenn das Programm gar nicht läuft, muss man ein COM erstellen und registrieren, das dafür sorgt dass die App auch bereit zur Verarbeitung ist. Viel Spass, die Grundlagen dafür sind in Winapi.UI.Notifications vorhanden.

[sjansen]

Schonmal gut zu wissen, dass es eine fehlender Implementierung ist und ich nicht einfach zu blöd bin :D

Hab zwei Beiträge in die Richtung gefunden:

https://stackoverflow.com/questions/...h-toastgeneric
https://blog.marcocantu.com/blog/201...vcl-winrt.html
Ggf. noch http://blog.blong.com/2020/09/delphi-and-winrt-api.html

Da eine saubere Implementierung aber vmtl etwas mehr Aufwand ist, werd ich das ganze wohl erstmal ruhen lassen und zu gegebener Zeit darauf zurück kommen.

[KodeZwerg]

Von Marco Canto gibt es auf seinem GitHub eine voll funktionierende Demonstration.
Leider auch da ohne das was der TE sich wünscht.