Delphi android 按包名判断是否安装了App

本文整理自网络，侵删。

 
有个需求，想判断手机里是否安装指定的app，没找到现成的代码，参考Delphi代码实现了一个，当返回空串时，表示没有安装app。

function GetVersionString(APackageName:string): string;
//uses Androidapi.JNI.GraphicsContentViewText,Androidapi.Helpers,androidapi.jni.javatypes;
var
  PackageInfo: JPackageInfo;
  PackageManager: JPackageManager;
  AppContext: JContext;
begin
  AppContext := TAndroidHelper.Context;
  if AppContext <> nil then
  begin
    PackageManager := AppContext.getPackageManager;
    if PackageManager <> nil then
    begin
      try
        PackageInfo := AppContext.getPackageManager.getPackageInfo(StringToJString(APackageName), 0);
      except
        Exit(string.Empty);
      end;

      if PackageInfo <> nil then
         Exit(JStringToString(PackageInfo.versionName));

    end;
  end;
  Result := string.Empty;
end;

调用代码：

if GetVersionString('com.kinglandsoft.xmyt')='' then
begin
//没有安装app
...
end

https://www.cnblogs.com/kinglandsoft/p/12389276.html
 

相关阅读 >>

Delphi调用sql分页存储过程实例

手动创建和部署一个classes.dex 查看更多关于 classes.dex 的文章 文件

Delphi thread类的创建及使用(关于线程函数的传递例子)

Delphi midstr 返回指定范围内的字符串

Delphi 对话框单元

Delphi结合winrar生成自解压文件

Delphi 打造mygetprocaddress函数(Delphi源码)

Delphi 无类型文件读写

Delphi splitstring 字符串分割成字符串组

Delphi 使用webbrowser控件获取含框架的网页的完整html代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi android 按包名判断是否安装了App