Win 10 Notification wird als Balloon angezeigt, aber nicht im Notification Center

[Kirchi]

Hallo,

ich teste gerade unter Win 10 die Benachrichtigung mit dem Notification Center. Ich hab eine Nachricht erstellt, aber diese wird nur kurz als Ballon angezeigt, bleibt aber nicht im NotificationCenter bestehen. Auch beim Beispiel Code von Embarcadero ist das so.

Code:

procedure TNotificationsForm.btnShowClick(Sender: TObject);
var
  MyNotification: TNotification;
begin
  MyNotification := NotificationCenter1.CreateNotification;
  try
    MyNotification.Name := 'Windows10Notification';
    MyNotification.Title := 'Windows 10 Notification #1';
    MyNotification.AlertBody := 'RAD Studio 10 Seattle';

    NotificationCenter1.PresentNotification(MyNotification);
  finally
    MyNotification.Free;
  end;
end;

Wie kann ich es realisieren, dass meine Benachrichtigung wie z.B. das angehängte Java Update im Notification Center angezeigt wird.

[Der schöne Günther]

https://stackoverflow.com/q/49094191/2298252

[Mavarik]

Zitat:

Zitat von Der schöne Günther (Beitrag 1407153)

https://stackoverflow.com/q/49094191/2298252

Hatte das vor 14 Tage auch getestet bei mir funktioniert es nicht - Nach Rücksprache mit Marco Cantu wird daran noch gearbeitet...

z.B. Skype schafft es auch ohne einen Registry Eintrag!

[Der schöne Günther]

Was erwartest du denn genau? Ja, es der Eintrag bleibt drin stehen. Das funktioniert bei mir auch mit Windows-Stand 1803 noch.


Dass so eine ausgegraute Leiche die nichts macht wenn man draufklickt nicht unbedingt state-of-the-art ist sollte aber auch klar sein. Oder taucht der Eintrag bei dir überhaupt nicht auf?


Anwendungen wie Skype werden wohl als .appx-Paket und nicht mehr einzeln rumschlabbernde .exe ausgeliefert, die können natürlich direkt einiges mehr.

[Kirchi]

Der Eintrag sollte als Erinnerung für Aufgabe in einer meiner Anwendungen in diesem Benachrichtigungsbereich stehen bleiben. So wie es jetzt aussieht wird nur das Balloon Fenster angezeigt, aber dieser Benachrichtigungsbereich bleibt unberührt.

In dem genannten Registry Eintrag (siehe Link) stehen aber die Anwendungen nicht drin, die bei mir in diesem Benachrichtigungsbereich angezeigt werden wie z.B. Java / Hardcopy / F-Secure. Und wenn man drauf klickt poppen auch die Anwendungen auf, obwohl diese keine .appx Pakete sind.

Also muss das irgendwie doch funktionieren.

[Der schöne Günther]

Diese Anwendungen laufen aber auch doch bereits (wahrscheinlich dauerhaft) wenn du draufklickst, oder?


Stimmt, ich meine das war früher noch anders:

Zitat:

You must implement a handler for toast activation, so that when the user clicks on your toast, your app can do something. This is required for your toast to persist in Action Center (since the toast could be clicked days later when your app is closed). This class can be placed anywhere in your project.

https://docs.microsoft.com/en-us/win...-the-activator

Dann hat sich bei Delphi wohl wirklich keiner die Mühe gemacht...

[Mavarik]

Zitat:

Zitat von Der schöne Günther (Beitrag 1407182)

Was erwartest du denn genau? Ja, es der Eintrag bleibt drin stehen. Das funktioniert bei mir auch mit Windows-Stand 1803 noch.

Bei mir nicht - ist sofort wieder weg!

[Der schöne Günther]

Welche Windows-Version (was spuckt Befehl "winver" aus)?

Ganz, ganz sicher dass der Registry-Eintrag stimmt?

[Mavarik]

Zitat:

Zitat von Der schöne Günther (Beitrag 1407429)

Welche Windows-Version (was spuckt Befehl "winver" aus)?

Ganz, ganz sicher dass der Registry-Eintrag stimmt?

Version 1803 (Build 17134.165)…

Eigentlich schon...

Hatte mit Marco gesprochen, bei Ihm klappt es auch nicht...

Hast Du ein working-Demo?

Mavarik

[Fritzew]

Habe gerade mal nachgeschaut:

Ich mache das so für eine Anwendung und funktioniert

Delphi-Quellcode:

procedure TAppForm.checkToastActionCenterKey(const StayInCenter: Integer);

const
   cKeyname = 'Software\Microsoft\Windows\CurrentVersion\Notifications\Settings\';
   cActionKey = 'ShowInActionCenter';
var
   Reg: TRegistry;
   OpenResult: Boolean;
   lKey: string;
begin
   lKey := cKeyname + getRegisterToastMessage + '\';
   Reg := TRegistry.Create(KEY_WRITE);
   try
      Reg.RootKey := HKEY_CURRENT_USER;
      OpenResult := Reg.OpenKey(lKey, true);

      if not OpenResult  then
         Exit();

    { Checking if the values exist and inserting when neccesary }

      if not Reg.KeyExists(cActionKey) then
         Reg.WriteInteger(cActionKey, StayInCenter); // else

      Reg.CloseKey();
   finally
      Reg.Free;
   end;

end;

function TAppForm.getRegisterToastMessage: string;
const
   AppId = 'Embarcadero.DesktopToasts.';
begin
   result := AppId + THashBobJenkinsGetHashString(ParamStr(0));
end;

procedure TAppForm.SendToastMessage(const Value: string);
var
   MyNotification: TNotification;
begin
   MyNotification := fNotification.CreateNotification;
   try
      MyNotification.Name := 'Fritz';
      MyNotification.Title := 'MyTost';
      MyNotification.AlertBody := Value;
      MyNotification.AlertAction := '';;
      MyNotification.HasAction := true;

      fNotification.PresentNotification(MyNotification);
   finally
      MyNotification.Free;
   end;
end;

procedure TAppForm.FormCreate(Sender: TObject);
begin
   fNotification := TNotificationCenter.Create(self);
   checkToastActionCenterKey(1);
end;

Habe aber System.Notifactions als Source im Projekt

[Der schöne Günther]

Guter Mann :thumb:

Mir fällt nur grade auf dass das allererste mal nicht funktioniert. Komisch. Aber besser als nichts.


Blöd nur dass hier eigentlich die volle Palette möglich ist. Sowohl Benachrichtigungen die etwas machen wenn die Anwendung gar nicht läuft. Und das ohne UWP, ohne .appx-Packaging:

Zitat:

Desktop apps (both Desktop Bridge and classic Win32) can send interactive toast notifications just like Universal Windows Platform (UWP) apps. However, there are a few different options for desktop apps due to the different activation schemes.
In this article, we list out the options you have for sending a toast notification on Windows 10. Every option fully supports...
Persisting in Action Center
Being activatable from both the popup and inside Action Center
Being activatable while your EXE isn't running

Quelle: https://docs.microsoft.com/en-us/win...t-desktop-apps


Das wäre mein persönliches Wunsch-Feature für XE 10.3 :P

[Mavarik]

Zitat:

Zitat von Fritzew (Beitrag 1407436)

Habe gerade mal nachgeschaut:

Ich mache das so für eine Anwendung und funktioniert

Delphi-Quellcode:

...   AppId = 'Embarcadero.DesktopToasts.';

OMG, das ist der Trick...
Ich habe natürlich (wie bei der Reverse-URL in iOS) als aller erstes das App ID angepasst. Aber wie es aussieht muss es Embracadero.DestktopToasts sein und schon funktioniert es...

Leider kommt die Benachrichtigung nicht zurück zur App, wenn man auf das Toast klickt...

Mavarik

[Der schöne Günther]

Weil, wie weiter oben bei SO verlinkt, in System.Win.Notifications das immer hartkodiert an die WinAPI übergeben wird. Man hat zwei Möglichkeiten: Entweder man kopiert sich das redundant in seinen eigenen Quelltext und nennt sich fortan immer "Embarcadero.DesktopToasts.***" oder man passt die Stelle im RTL-Quelltext an.

[Mavarik]

Zitat:

Zitat von Der schöne Günther (Beitrag 1407479)

Weil, wie weiter oben bei SO verlinkt, in System.Win.Notifications das immer hartkodiert an die WinAPI übergeben wird. Man hat zwei Möglichkeiten: Entweder man kopiert sich das redundant in seinen eigenen Quelltext und nennt sich fortan immer "Embarcadero.DesktopToasts.***" oder man passt die Stelle im RTL-Quelltext an.

Habe gerade mit Marco Cantu gesprochen, es steht auf der Liste für die nächste Version.

Hast Du vielleicht noch einen Trickwieso der Click auf das Toast nicht die App Aufruft, wenn das Toast noch "heiß" ist geht es aber nicht aus dem Notification-Center!

[Der schöne Günther]

Weil nirgendwo festgelegt wurde was passieren soll wenn man draufklickt. "Auf Verdacht" einfach mal eine .exe-Datei starten (die darauf auch überhaupt nicht vorbereitet wäre), das wäre sicher nicht das Richtige gewesen.


Gehen tut alles, wenn man der Doku glauben darf, egal ob UWP, appx-Package oder stinknormale .exe:
https://docs.microsoft.com/en-us/win...t-desktop-apps

Ich selbst komme bei diesem "AUMID"-Kram nicht weiter, aber ich glaube das lohnt sich eh nicht. Wenn man die Win10-Features nutzen will sollte man das gleich alles in eine .appx packen, da geht das dann alles automatisch.

[Fritzew]

Zitat:

Zitat von Der schöne Günther (Beitrag 1407447)

Mir fällt nur grade auf dass das allererste mal nicht funktioniert. Komisch. Aber besser als nichts.

Das muss aufgerufen worden sein bevor das NotificationCenter erzeugt wird

[KodeZwerg]

Würde das auch als Ersatz dienen?

Zitat:

Zitat:

Zitat von a.def (Beitrag 1369035)

Wenn ich mich nicht komplett irre, dann habe ich diese Meldungen unter Windows 10 mit TCoolTrayIcon hinbekommen.

Gerade unter 1703 getestet: TCoolTrayIcon macht mit ShowBalloonHint() genau das was du suchst.
> http://www.delphipages.com/comp/cool...n_v_-2576.html