delphi 安卓模拟按键

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;

type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.fmx}

{$R *.XLgXhdpiTb.fmx ANDROID}

{$R *.LgXhdpiTb.fmx ANDROID}

{$R *.NmXhdpiPh.fmx ANDROID}

uses Androidapi.JNI.JavaTypes,Androidapi.JNIBridge;

procedure TForm1.Button1Click(Sender: TObject);

var

myrun:JRunTime;

myclass:JRunTimeClass;

proc:JProcess;

strs:Androidapi.JNIBridge.TJavaObjectArray;

begin

strs:=Androidapi.JNIBridge.TJavaObjectArray.Create(21);

Sleep(8000);

strs.Items[0]:=StringToJString('su');

strs.Items[1]:=StringToJString('-c');

strs.Items[2]:=StringToJString('/system/bin/sendevent /dev/input/event3 3 53 120');

strs.Items[3]:=StringToJString('/system/bin/sendevent /dev/input/event3 3 54 125');

strs.Items[4]:=StringToJString('/system/bin/sendevent /dev/input/event3 3 57 0');

strs.Items[5]:=StringToJString('/system/bin/sendevent /dev/input/event3 3 48 10');

strs.Items[6]:=StringToJString('/system/bin/sendevent /dev/input/event3 3 50 10');

strs.Items[7]:=StringToJString('/system/bin/sendevent /dev/input/event3 0 2 0');

strs.Items[8]:=StringToJString('/system/bin/sendevent /dev/input/event3 0 0 0');

strs.Items[9]:=StringToJString('/system/bin/sendevent /dev/input/event3 3 53 120');

strs.Items[10]:=StringToJString('/system/bin/sendevent /dev/input/event3 3 54 125');

strs.Items[11]:=StringToJString('/system/bin/sendevent /dev/input/event3 3 57 0');

strs.Items[12]:=StringToJString('/system/bin/sendevent /dev/input/event3 3 48 12');

strs.Items[13]:=StringToJString('/system/bin/sendevent /dev/input/event3 3 50 12');

strs.Items[14]:=StringToJString('/system/bin/sendevent /dev/input/event3 0 2 0');

strs.Items[15]:=StringToJString('/system/bin/sendevent /dev/input/event3 0 0 0');

strs.Items[16]:=StringToJString('/system/bin/sendevent /dev/input/event3 3 57 0');

strs.Items[17]:=StringToJString('/system/bin/sendevent /dev/input/event3 3 48 0');

strs.Items[18]:=StringToJString('/system/bin/sendevent /dev/input/event3 3 50 0');

strs.Items[19]:=StringToJString('/system/bin/sendevent /dev/input/event3 0 2 0');

strs.Items[20]:=StringToJString('/system/bin/sendevent /dev/input/event3 0 0 0');

myrun:=TJRunTime.JavaClass.getRuntime;

proc:=myrun.exec(strs);

end;

end.