دیدین وقتی از بازار یه برنامه ای دانلود و نصب میکنید ازش یه میانبر میسازه براتون؟ ساخت میانبر از یه اپ خاص به صفحه Home گوشی:
کتابخانه PNShortcutManager رو تیک بزنید و تابع زیر رو به اکتیویتی تون اضافه کنید:
Sub cerateShortcut(pkgname As String)
Dim pnsh As PNShortcutManager
pnsh.Initialize
Dim ph As Phone
Dim pkgmng As PackageManager
Dim i As Intent=pkgmng.GetApplicationIntent(pkgname)
Dim b As BitmapDrawable
b=pkgmng.GetApplicationIcon(pkgname) 'گرفتن آیکن اپ
If ph.SdkVersion>=25 Then
pnsh.AddWithIntent("shortcut1",i,pkgmng.GetApplicationLabel(pkgname),pkgmng.GetApplicationLabel(pkgname),"شورتکات غیرفعال است",b.Bitmap)
Else
pnsh.AddShortcutWithIntent_OldVersion(i,pkgmng.GetApplicationLabel(pkgname),b.Bitmap)
End If
ToastMessageShow("ایجاد شد",True)
End Sub
استفاده از تابع،
مثلا از برنامه ShareIt یه میانبر ساختیم:
cerateShortcut("com.lenovo.anyshare.gps") 'اپ share it