Italian creare shortcut sulla home

[kkkpe]

Ho provato in tutti i modi descritti negli esempi del forum a creare uno shortcut della mia applicazione sulla HOME di un S5mini, ma senza nessun risultato. La compilazione del programma avviene senza errori. Avete un esempio correttamente funzionante?

 

[kkkpe]

allego il codice sorgente se qualcuno lo voglia visionare ed eventualmente correggere.. Grazie

 

[imgsimonebiliato]

Ciao,
io le creo con questo codice sull'Activity create:

Dim i As Int

For i = 0 To 1
    If i = 0 Then apkName = "test1"
    If i = 1 Then apkName = "test2"
    iLib2.CreateEmptyShortCut ( apkName )
Next

Msgbox("ciao", "")
Activity.Finish

Nella cartella Files, ho aggiunto 2 file .png chiamati test1.png e test2.png per avere anche l'icona

 

[kkkpe]

scusa ma non riesco a capire l'oggetto iLib2...!

 

[imgsimonebiliato]

scusa ma non riesco a capire l'oggetto iLib2...!

Eliminalo.. E' una mia libreria

 

[imgsimonebiliato]

Usa questo

Public Sub CreateEmptyShortCut ( aApkName As String )
'Dim PrefMgr As PreferenceManager
'If PrefMgr.GetBoolean(aShortName) Then Return

'Log("Creo: " & aShortName )

Dim shortcutIntent As Intent
shortcutIntent.Initialize("", "")
shortcutIntent.SetComponent("it.android.imgspa." & aApkName & "/.main")
shortcutIntent.PutExtra("name", aApkName)
'shortcutIntent.PutExtra("from_shortcut", True)

Dim In As Intent
In.Initialize("", "")
In.PutExtra("android.intent.extra.shortcut.INTENT", shortcutIntent)
In.PutExtra("android.intent.extra.shortcut.NAME", "Label")
In.PutExtra("android.intent.extra.shortcut.ICON", LoadBitmap(File.DirAssets, aApkName & ".png")) '72x72
In.Action = "com.android.launcher.action.INSTALL_SHORTCUT"

Dim p As Phone
p.SendBroadcastIntent(In)
'PrefMgr.SetBoolean(aShortName, True)
End Sub