本文整理自网络,侵删。
uses Androidapi.JNI.App, Androidapi.JNIBridge, Androidapi.JNI.Os, Androidapi.Helpers;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; LVibrator.vibrate(500); // 振动500毫秒end;
权限
在Project Options中设置Uses Permissions将Vibrate设为true

相关阅读 >>
Delphi的idhttp报508 loop detected错误的原因
Delphi winapi: getmodulefilename、getmodulehandle
Delphi 实现卸载windows应用程序(类似360软件管家-卸载程序)
Delphi 读取图像文件base64编码加载到image组件显示图片
Delphi windows 编程[16] - 添加与删除菜单项:getmenu、appendmenu、deletemenu、drawmenubar
更多相关阅读请进入《Delphi》频道 >>