Probleme auf Android 12 und 13 mit TJPendingIntent

[QuickAndDirty]

[OT]aaaaaaaaaaaaah[/OT]
Oh man lesen. LESEN! Hilft total... unglaublich. Warum hat mir das keiner gesagt? Was ist das füe eine Community?

Delphi-Quellcode:

var
  ClassIntent: JIntent;
  Flags:Integer;
Const
  FLAG_MUTABLE:Integer   =$02000000;
  FLAG_IMMUTABLE:Integer =$04000000;//TJPendingIntent.JavaClass.FLAG_IMMUTABLE
  FLAG_ALLOW_UNSAFE_IMPLICIT_INTENT:Integer = $01000000;
Begin
      Flags := TJIntent.JavaClass.FLAG_ACTIVITY_SINGLE_TOP;
      TLog.d('OSVersion: Major='+TOSVersion.Major.tostring+' Minor='+TOSVersion.Minor.ToString+' Name='+TOSVersion.Name);
      If TOSVersion.Major>=12 then // >= Android 12
        Flags := Flags or FLAG_MUTABLE;
      ClassIntent := TJIntent.JavaClass.init(TAndroidHelper.Context, TAndroidHelper.Activity.getClass);
      PendingIntent := TJPendingIntent.JavaClass.getActivity(TAndroidHelper.Context, 0,
                                                                ClassIntent.addFlags(Flags), Flags);
end;

Der letzte Parameter von getActivity heist "Flags".
Das ist vermutlich noch nicht optimal... aber es geht wenigstens schonmal ...
von hieraus muss ich noch etwas testen... ob ClassIntent wirklich auch diese Flags braucht oder nur der Aufruf von TJPendingIntent.JavaClass.getActivity