B4A Library ApkFromGooglePlay

Hi,

This library has roughly the same function as those of Ilan, it's just something completely.
The messages are displayed in 3 languages, depending on the device settings, in Italian, German and English.

Please test before, I do not guarantee.

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Dim check As ApkFromGooglePlay
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")

    Dim check As ApkFromGooglePlay
    check.Initialize
   
    'If that is not used then the default is 7 days.
    check.DelayedDay = 2
   
    'Check this app
    If Not(check.IsApkFromGooglePlay("","")) Then
        check.ShowMessage
        If check.RestDelayedDay = 0 Then
            Activity.Finish
        End If
    End If

    'Check any app
    If Not(check.IsApkFromGooglePlay("com.android.phone", "Phone")) Then
        'check.ShowMessage
        'do something ...
        Log("com.android.phone is not from Google-Play")
    Else
        Log("com.android.phone is from Google-Play")
    End If

End Sub