例如，当您的计算机被游戏应用程序损坏时，您希望产生振动效果。

要在Delphi中使用Android振动器，请使用Android Vibrator类。

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.Controls.Presentation, FMX.StdCtrls,

  Androidapi.JNI.Os, Androidapi.Helpers, Androidapi.JNIBridge,

  Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.App;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { private 宣言 }

  public

    { public 宣言 }

  end;

var

  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);

var

  vr: JVibrator;

begin

  // Vibrator取得

  vr := TJVibrator.Wrap(TAndroidHelper.Activity.getSystemService(TJContext.JavaClass.VIBRATOR_SERVICE));

  vr.vibrate(500);  // 500秒振動

end;

procedure TForm1.Button2Click(Sender: TObject);

var

  vr: JVibrator;

  pt: TJavaArray;

begin

  // Vibrator取得

  vr := TJVibrator.Wrap(TAndroidHelper.Activity.getSystemService(TJContext.JavaClass.VIBRATOR_SERVICE));

  // 100秒off - 500秒振動 - 200秒off - 1000秒振動

  pt := TJavaArray.Create(4);

  pt.Items[0] := 100;    // Off

  pt.Items[1] := 500;    // On

  pt.Items[2] := 200;    // Off

  pt.Items[3] := 1000;   // On

  vr.vibrate(pt, -1);    // // -1，如果你想停止重复以重复执行0只有一次使用取消方法

  pt.Free;

end;

end.