German Einlesen von Apps unter Android 5

[so27]

Hallo zusammen,

wer von Euch mal alle Apps unter Android 5 einlesen und dabei auch das jeweilige App-Icon mit einbeziehen möchte, wird u. U. einen Fehler erhalten.

Dieser Fehler liegt am Package com.android.systemui. Hier ist kein App-Symbol vorhanden und mir ist jedes Mal das Einlesen mit einem Fehler ausgestiegen.

Für jeden, den es interessiert, hier der Code wie das oben genannte Package übergangen werden kann:

Sub Einlesen

ListView1.clear

Dim  pm As PackageManager

Dim bdw As BitmapDrawable

ListView1.Clear

pl = pm.GetInstalledPackages

For a=0 To pl.Size-1

'ProgressDialogShow("Apps werden geladen..." & a)   
' Wer mag kann hier zur Überbrückung der Wartezeit
' einen ProgressDialog einblenden

If pl.Get(a)="com.android.systemui" Then Continue
' Diese obere Zeile bewirkt, dass das Package erkannt und übergangen wird (Continue)

bdw = pm.GetApplicationIcon(pl.Get(a))   
        ListView1.AddTwoLinesAndBitmap2(pm.GetApplicationLabel(pl.Get(a)),pl.Get(a), bdw.Bitmap, pl.Get(a))

Next

' ProgressDialogHide
' Um den Warte-Dialog zu schließe

End Sub

 

[so27]

Ich habe mal ein Projekt angelegt, für alle, die sich den Code komplett downloaden möchten.
https://github.com/so27/List-Apps.git