2019-04-24 启动模拟器
2019-04-24 本文已影响0人
netppp
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;
