Sub Globals
...
Type InstalledProgram(AppLabel As String, PackageName As String)
...
End Sub
Sub Einlesen
ListView1.clear
Dim pl As List
Dim pm As PackageManager
Dim bdw As BitmapDrawable
pl = pm.GetInstalledPackages
Dim programList As List
programList.Initialize
For a = 0 To pl.Size - 1
If pl.Get(a)="com.android.systemui" Then Continue ' Überspringen, da unter Android >5 kein Icon
Dim program As InstalledProgram
program.AppLabel = pm.GetApplicationLabel(pl.Get(a))
program.PackageName = pl.Get(a)
programList.Add(program)
Next
programList.SortType("AppLabel", True)
For a = 0 To programList.Size - 1
Dim program As InstalledProgram
program = programList.Get(a)
Log(program.PackageName)
bdw = pm.GetApplicationIcon(program.PackageName)
ListView1.AddTwoLinesAndBitmap2(program.AppLabel, program.PackageName, bdw.Bitmap, program.PackageName)
Next
End Sub