Private Sub CheckNonMarketAppsEnabled As Boolean
Dim p As Phone
If p.SdkVersion < 17 Then
Return p.GetSettings("install_non_market_apps") = "1"
Else
Dim context As JavaObject
context.InitializeStatic("anywheresoftware.b4a.BA")
context = context.GetField("applicationContext")
Dim resolver As JavaObject = context.RunMethod("getContentResolver", Null)
Dim global As JavaObject
global.InitializeStatic("android.provider.Settings.Global")
Return global.RunMethod("getString", Array As Object(resolver, "install_non_market_apps")) = "1"
End If
End Sub