To All:

unit Unit1;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.fmx}

uses Androidapi.JNI.Os,
Androidapi.JNIBridge,
Androidapi.JNI.JavaTypes,
Androidapi.JNI.App;

procedure TForm1.Button1Click(Sender: TObject);
var xVibrator:JVibrator;
begin
(* Vibrator說明:
cancel(): 關閉震動
hasVibrator()：檢查硬體是否支援
vibrate(long milliseconds): 震動milliseconds毫秒
* )

//需要開啟Vibrator許可權
xVibrator := TJVibrator.Create as JVibrator;

//測試手機是否支援震動
if(not xVibrator.hasVibrator)then
begin
ShowMessage('手機不支持震動');
Exit;
end
else
//震動兩秒!!
xVibrator.vibrate(2000);
end;

end.

不多說了，趕快試吧!!

編輯記錄

給大家的提醒

上面的做法適用於Android 核心版本為 4.0.3左右的版本，
之後的版本要利用SharedActivityContext來叫用

以上

編輯記錄

請問如果要寫成 c++builder要怎麼改??

XE7/8下， 下面这句要改一下：
改为：
xVibrator := TJVibrator.Wrap((SharedActivity.getSystemService(TJActivity.javaClass.VIBRATOR_SERVICE ) as iLocalObject).GetObjectID );
应用的Unit:
Androidapi.JNI.App,Androidapi.JNIBridge,Androidapi.JNI.Os,Androidapi.Helpers

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------