从我的 android 应用打开 Google Play 商店以安装用 Delphi 编写的最新版本

Question

必要时我想显示应用升级提醒屏幕。应用程序升级提醒屏幕有 2 个选项 "update now" 或 "ignore"。 我正在使用 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;