Dim packman1 As PackageManager
Dim whichapp As String
Dim o As OperatingSystem
Dim tasks As List = o.getRecentTasks(20, 0)
For Each task As Object In tasks
Dim r As Reflector
r.Target = task
Dim bi As Object = r.GetField("baseIntent")
If bi <> Null Then
r.Target = bi
r.Target = r.RunMethod("getComponent")
whichapp = r.RunMethod("getPackageName")
ToastMessageShow(whichapp, True)
End If
If whichapp.contains("coldfustion") = False Then
If packman1.GetApplicationIntent(whichapp).IsInitialized Then
Dim bitm As BitmapDrawable
bitm = packman1.GetApplicationIcon(whichapp)
mListView.AddTwoLinesAndBitmap2("", "", bitm.Bitmap, whichapp)
End If
End If
Next