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