Sub HasFeature (Feature As String) As Boolean
Dim ctxt As JavaObject
ctxt.InitializeContext
Return ctxt.RunMethodJO("getPackageManager", Null).RunMethod("hasSystemFeature", Array(Feature))
End Sub
If HasFeature("android.hardware.touchscreen") Then
Log("Device has a touch screen")
End if