[...]
Public Sub Install As ResumableSub
Wait For (File.CopyAsync(XUI.DefaultFolder, apk_filename, Starter.Provider.SharedFolder, apk_filename)) Complete (Success As Boolean)
Dim i As Intent
If phone.SdkVersion >= 24 Then
i.Initialize("android.intent.action.INSTALL_PACKAGE", Starter.Provider.GetFileUri(apk_filename))
i.Flags = Bit.Or(i.Flags, 1) 'FLAG_GRANT_READ_URI_PERMISSION
Else
i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(Starter.Provider.SharedFolder, apk_filename))
i.SetType("application/vnd.android.package-archive")
End If
'TODO - C'è da vedere come e se funziona
StartActivityForResult(i)
Wait For ion_Event (MethodName As String, Args() As Object)
Log(MethodName)
For Each o In Args
Log(o)
Next
Return True 'TODO
End Sub
[...]