Library 'Share App ver.1.02F' allows access to the application (.apk) installed
WITHOUT ROOT in mobile - version of Android 4.3.
Can be accessed in the following ways:
A. Making the current (running) application for (Bluetooth, Dropbox, Email, Wi-Fi Direct, ...)
B4X:
Dim sapp As ShareApp
Sub sh_Click
StartActivity(sapp.ShareApps("","Application Sharing"))
End sub
B. Provide selected from the list of applications by the (Bluetooth, Dropbox, Email, Wi-Fi Direct, ...)
B4X:
Dim sapp As ShareApp
Sub LstPackages_ItemLongClick(Position As Int, Value As Object)
Try
StartActivity(sapp.ShareApps(Value,"Package Sharing"))
Catch
ToastMessageShow(LastException.Message, True)
End Try
End Sub
C. Create a backup of all installed applications on your phone to a separate directory on the Device storage / SD memory card.
B4X:
Sub Process_Globals
Type PackageApplications (DialogFolders As String, ...)
End Sub
Sub Globals
Dim LstPackages As ListView
Dim app As PackageApplications
End sub
...
ProgressDialogShow2("Backup in progress ...",True)
DoEvents
Try
Private packs As String
For i = 0 To LstPackages.Size - 1
packs = LstPackages.GetItem(i)
If Not(File.Exists(File.DirRootExternal, packs.ToLowerCase & "-1.apk")) Then sapp.BkpPackage(packs,app.DialogFolders)
DoEvents
Next
ProgressDialogHide
ToastMessageShow("Successfully",False)
Beep
Catch
ProgressDialogHide
Msgbox("Could not write file (" & packs & ")","File")
End Try
Description Library 'ShareApp ver.1.02F'
1.
Making Public Source Directory.
ShareDirs(Package As java.lang.String) As java.lang.String
2.
Set the output file stream up.
FileStream(src As java.io.File, dst As java.io.File)
3.
Making Application.
ShareApps(Package As java.lang.String, Title As java.lang.String) As android.content.Intent
Regards.
Last edited: