Sub GetAndroidId As String
Dim p As Phone
Return p.GetSettings("android_id")
End Sub
Sub GetAndroidUnknownSourceStatus As String
Dim p As Phone
Return p.GetSettings("install_non_market_apps")
End Sub
No need for reflection, just use the phone library ie
Dim ph as Phone
if ph.GetSettings("install_non_market_apps") = 1 then 'can install from other sources
bluejay
No need for reflection, just use the phone library ie
Dim ph as Phone
if ph.GetSettings("install_non_market_apps") = 1 then 'can install from other sources
bluejay
Thanks Moster67,
I have this Sub...
B4X:Sub GetAndroidId As String Dim p As Phone Return p.GetSettings("android_id") End Sub
... that I changed to this:
B4X:Sub GetAndroidUnknownSourceStatus As String Dim p As Phone Return p.GetSettings("install_non_market_apps") End Sub
It seems to work![]()