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

推荐分享