2019-04-24 启动APP

procedure TForm1.Button7Click(Sender: TObject);

var  i:integer;

begin

        //dnconsole.exe  runapp --index 2 --packagename  cn.caocaokeji.user 启动应用

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

  begin

  WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  runapp --index '+inttostr(i)+' --packagename  cn.caocaokeji.user'),SW_HIDE);

  end;

end;