procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
//ld.exe -s 1 input swipe 700.0 700.0 5.0 700.0 鼠标滑动
//这是另外一种雷电模拟器-设置-关于平板-点击几次版本号(最下面）开启开发者模式
//开发者模式里打开指针位置，然后左键按住屏幕任何位置上面就会显示坐标了
// for i:= 1 to strtoint(edit10.text) do
for i:= 1 to 5 do
begin
WinExec(PAnsiChar(AnsiString( 'cmd.exe ' + '/c '+'ld.exe -s '+inttostr(i)+ ' input swipe 700.0 700.0 5.0 700.0')),SW_HIDE);
sleep(500);
WinExec(PAnsiChar(AnsiString( 'cmd.exe ' + '/c '+'ld.exe -s '+inttostr(i)+ ' input swipe 700.0 700.0 5.0 700.0')),SW_HIDE);
sleep(500);
WinExec(PAnsiChar(AnsiString( 'cmd.exe ' + '/c '+'ld.exe -s '+inttostr(i)+ ' input swipe 700.0 700.0 5.0 700.0')),SW_HIDE);
end;
end;
