2019-04-24 模拟器自动全部写入

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

begin

    for i:= 1 to strtoint(edit1.text)  do

    begin

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index '+inttostr(i)+' --key call.input --value '+memo1.lines[i-1]),SW_HIDE);

    end;

end;