procedure TForm1.Button6Click(Sender: TObject);
var i:integer;
begin
//dnconsole.exe launch --index 1 启动模拟器
for i:= 1 to strtoint(edit1.text) do
begin
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe launch --index '+inttostr(i)),SW_HIDE);
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
var i:integer;
begin
//dnconsole.exe launch --index 1 启动模拟器
for i:= 1 to strtoint(edit1.text) do
begin
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe launch --index '+inttostr(i)),SW_HIDE);
end;
end;
本文标题：2019-04-24 启动模拟器
本文链接：https://www.haomeiwen.com/subject/uqfngqtx.html
网友评论