Lista.Initialize
'--- elenco tutte le app installate dall'utente
Obj1.Target = Obj1.GetContext
Obj1.Target = Obj1.RunMethod("getPackageManager")
Obj1.Target = Obj1.RunMethod2("getInstalledPackages", 0, "java.lang.int")
size = Obj1.RunMethod("size")
For i = 0 To size -1
Obj2.Target = Obj1.RunMethod2("get", i, "java.lang.int")
name = Obj2.GetField("packageName")
Obj3.Target = Obj2.GetField("applicationInfo")
flags = Obj3.GetField("flags")
Lista.Add (name.trim)
Next
Lista.Sort (True)