procedure TForm1.Button1Click(Sender: TObject);
var? i:integer;
begin
? //ld.exe -s 1 input swipe 700.0 700.0 5.0? 700.0 鼠標(biāo)滑動
? //這是另外一種雷電模擬器-設(shè)置-關(guān)于平板-點擊幾次版本號(最下面）開啟開發(fā)者模式
//開發(fā)者模式里打開指針位置看杭，然后左鍵按住屏幕任何位置上面就會顯示坐標(biāo)了
//? 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;
