Toast Notification in Windows 10/11 mit Eventhandler

[Achim Kalwa]

Zitat von Yersinian:

Bisher nutzte ich dafür folgendes:
[...]

Code:

procedure TWindowsBenachrichtigung.SendeBenachrichtigung(ASender: TObject; ABenachrichtigungstitel, AVorschauText: String);
begin
     try
        FNachricht.EnableSound := True;
        FNachricht.AlertBody := AVorschautext;
        FNachricht.Title := ABenachrichtigungstitel;
        FNachrichtCenter.OnReceiveLocalNotification := DoReceiveLocalNotification;
        FNachrichtCenter.PresentNotification(FNachricht);
     finally
     end;
end;

Dies hat aber ein großes Problem. Die erste Notification des Tages hat einen cryptischen Titel wie Embarcadero.Toasts.######### (siehe First Note.png)
und alle danach folgenden immer nur den Exe-Namen (Next Notes.png).

Sie soll aber gezielte Bezeichnungen enthalten. [...]

Der kryptische Titel taucht bei mir auch auf mit dem Beispielcode von Embarcadero:

Code:

C:\Users\Public\Documents\Embarcadero\Studio\22.0\Samples\Object Pascal\VCL\Windows 10 Notifications\NotificationsProject.dpr

Im Embarcadero Quality Center gibt es dazu einen Bug-Report: RSP-32375, also "Lösung" wird angeraten, rechtzeitig vor dem Erzeugen der ersten Notification eine Initialisierung durchzuführen, z.B. in FormCreate():

Code:

NotificationCenter1.PlatformInitialize;

Das ist auch im DocWiki beschrieben:
https://docwiki.embarcadero.com/Libr...formInitialize

HTH

[Yersinian]

Hey! Danke für die Antworten schon einmal.

"Das mit Das ist auch im DocWiki beschrieben:
https://docwiki.embarcadero.com/Libr...formInitialize "
klang sehr vielversprechend. Leider ist es aber erst ab 10.4 Sydney.
Im Betrieb nutzen wir 10.2 Tokyo,
was sich in absehbarer zeit auch nicht ändern wird.

In den COM-Server werde ich mich nochmal einlesen.

[himitsu]

Wir hatten am Samstag erste Blick auf die 12 geworfen.
Ihr verpasst was.

[Yersinian]

Hey Himitsu =)

Ich hab gestern noch zu meinem Kollegen gesagt, wie lange es wohl dauert, bis auch du antwortest =)

Ja. Ich hoffe, dass wir auch updaten. Vielleicht spreche ich das mal an, aber aktuell ist das leider noch nicht meine Problemlösung.

Bin gespannt wie 12 wohl sein wird. Zu Hause habe ich die 11 =)

[himitsu]

Wir sind ja hauptsächlich noch mit XE unterwegs, aber 10.2 10.3 10.4 11 ist inzwischen nahezu fertig und grade in der Dokumentation/Entabnahme und hoffentlich demnächst auch Übernahme (erster von 3 PRs ist gestern durch)

Dass CodeCompletion/CodeInsight öfters nicht geht, ist aber das Nervigste.
https://www.delphipraxis.net/213868-...chen-will.html

[Yersinian]

LWSAppID := TWindowsString.Create(AppID + THashBobJenkins.GetHashString(ParamStr(0))); Dann wird der exe-Name angezeigt im Titel.

ersetze ich jetzt die AppID durch nen eigenen String, dann steht da sowas wie 'MyString9AD4F5G'

wenn ich alles im Create durch meinen eigenen String ersetze steht dort, das was ich möchte.

Allerdings verschwindet dann in beiden Fällen das Icon daneben.

Woran könnte das liegen?

[Mavarik]

Hat jemand es mittlerweile hin bekommen, dass man auch auf einen Toast im Action Center klicken kann?

Mavarik