German Wie löse ich das in B4J

B4XPage.SetTitle(Me,"Der Titel")

#AdditionalJar:jna-5.14.0.jar
#AdditionalJar:jna-platform-5.14.0.jar

    Dim WU As JavaObject
    WU.InitializeStatic("com.sun.jna.platform.WindowUtils")
    Dim L As List = WU.RunMethod("getAllWindows",Array(True)) ' or False if you want to include windows that are not visible
 
    For Each JO As JavaObject In L
        Log(JO.RunMethod("getTitle",Null))
    Next