procedure TForm1.Button2Click(Sender: TObject); var LVibrator:JVibrator; begin LVibrator:=TJVibrator.Wrap((SharedActivity.getSystemService(TJActivity.javaClass.VIBRATOR_SERVICE ) as iLocalObject).GetObjectID );//引用震动 (就是这一段不知道怎么弄)
if not LVibrator.hasVibrator then begin showmessage('手机不支持震动'); exit; end;