从我的Android应用程序打开Goog​​le Play商店，安装用Delphi编写的最新版本

Question

必要时，我想展示应用升级提醒屏幕。应用升级提醒屏幕有2个选项“立即更新”或“忽略”。 我正在使用XE10西雅图。

要求是立即更新应该打开Play商店应用，我的应用已在其上搜索过。

Answer 1

我尝试使用以下代码启动Google Play应用，但它无法正常工作。

Intent.setPackage(StringToJString('com.android.vending'));
                            Intent.setAction(TJIntent.JavaClass.ACTION_MAIN);
                            SharedActivity.startActivity(Intent);

我解决了使用浏览器启动应用程序URL的问题

    if localversion<requestversion then
      begin
        MessageDlg('A new version of the app is available.
                     Do you want to update it?',
                    System.UITypes.TMsgDlgType.mtInformation,
          [
            System.UITypes.TMsgDlgBtn.mbYes,
            System.UITypes.TMsgDlgBtn.mbNo
          ], 0,


            procedure(const AResult: TModalResult)
            begin
              case AResult
                of
                { Detect which button was pushed and show a different message }
                mrYES:
                     begin
                        Intent := TJIntent.Create;
                        Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
                        Intent.setData(StrToJURI('https://play.google.com/store/apps/details?id=com.thesis.Cantieri'));
                        SharedActivity.startActivity(Intent);
                        exit;
                      end;
                mrNo:
                  exit;
                mrCancel:
                 exit;
              end;

            end

          );

      end;