Checking if 'Unknown sources' is checked

bluejay said:

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

Click to expand...

bluejay said:

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

Click to expand...

DKCERT said:

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

Click to expand...