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实现win10下Delphi 10.3.1 inline hook 域名转向之internetconnecta

Delphi webbrowser 滚动条的去除、边框去除

Delphi 取得任意程序的命令行

Delphi wmi获取网卡mac

Delphi 获取所有磁盘分区另类方法

Delphi 返回下载地址的文件名

Delphi调用百度语音识别服务

Delphi 如何编写使stringgrid中的一列具有check功能，和checkbox效果一样

Delphi windows 下用 Delphi 代码杀死进程，或者杀死自己

Delphi xe5下android中调用条码的方法

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

转载请注明出处：木庄网络博客 » Delphi调用android振动功能