Criei uma forma de atualizar meu aplicativo via programação, até tudo bem, o código citado a baixo funciona, quando abre a tela de perguntando se vai instalar ou cancelar a instalação, após a chamada do apk pelo SharedActivityContext minha aplicação congela, se clico no cancelar minha aplicação não continua restante do processo, trava e após um tempo aparece para encerrar ou aguardar. Estou usando Delphi 10.1 Berlin.
MyFile := TFileStream.Create(GetSharedDownloadsDir + '/MeuApp.apk', fmCreate);
IdHTTP1.Get(Caminho_D, MyFile);
aFile := TJfile.JavaClass.Init(stringtojstring(GetSharedDownloadsDir), StringToJString('MeuApp.apk'));
Intent := TJIntent.Create;
Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
Intent.addFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
Intent.setDataAndType(TJnet_Uri.JavaClass.fromFile(aFile),StringToJString('application/vnd.android.package-archive'));
SharedActivityContext.startActivity(Intent);
MyFile.Free;
Close; //Fecha o formulário de atualização (executa mas não funciona)