Delphi调用android振动功能


本文整理自网络,侵删。

 
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 android-api 开发常用函数

Delphi 清空文件夹

win7下使用Delphi7的方法

Delphi的idhttp报508 loop detected错误的原因

Delphi中frame和form有何区别

Delphi winapi: getmodulefilename、getmodulehandle

Delphi 实现卸载windows应用程序(类似360软件管家-卸载程序)

Delphi 读取图像文件base64编码加载到image组件显示图片

Delphi的rtti实现数据集的简单对象化

Delphi windows 编程[16] - 添加与删除菜单项:getmenu、appendmenu、deletemenu、drawmenubar

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...