Sub SetWallpaperIntent
Private sharedFolder As String
sharedFolder = Starter.rp.GetSafeDirDefaultExternal("shared")
'copy the file to the shared folder
File.Copy(File.DirRootExternal&"/WallDrox/Wallpapers/", "wall1.png" , sharedFolder , "wall1.png")
'The intent
Dim i As Intent
i.Initialize("android.intent.action.ATTACH_DATA", CreateFileProviderUri(sharedFolder, "wall1.png"))
i.SetType("image/*")
i.Flags = 1
Try
StartActivity(i)
Catch
ShowSnackBar("Error setting Wallpaper", 0)
Log(LastException)
End Try
End Sub
Sub CreateFileProviderUri (Dir As String, FileName As String) As Object
Dim FileProvider As JavaObject
Dim context As JavaObject
context.InitializeContext
FileProvider.InitializeStatic("android.support.v4.content.FileProvider")
Dim f As JavaObject
f.InitializeNewInstance("java.io.File", Array(Dir, FileName))
Return FileProvider.RunMethod("getUriForFile", Array(context, Application.PackageName & ".provider", f))
End Sub