delphi在手机桌面图标上显示数字

本文整理自网络，侵删。

 
function getLauncherClassName: JString;
var
  str : JString;
  localPackageManager : JPackageManager;
  Intent: JIntent;
  localIterator : JIterator;
  localResolveInfo : JResolveInfo;
begin
  localPackageManager := SharedActivity.getPackageManager;
  Intent := TJIntent.JavaClass.init(StringToJString('android.intent.action.MAIN'));
  Intent.addCategory(StringToJString('android.intent.category.LAUNCHER'));
  try
    localIterator := localPackageManager.queryIntentActivities(Intent,0).iterator;
    while localIterator.hasNext do
    begin
      localResolveInfo := TJResolveInfo.Wrap((localIterator.next as ILocalObject).GetObjectID);
      if (not localResolveInfo.activityInfo.applicationInfo.packageName.equalsIgnoreCase(SharedActivity.getPackageName)) then
        Continue;
      Result := localResolveInfo.activityInfo.name;
      Break;
    end;
  except
 
  end;
end;
 
procedure setHuaweiBadge(num: Integer);
var
  str : JString;
  localBundle : JBundle;
begin
  str := getLauncherClassName;
  if JStringToString(str) <> '' then
  begin
    localBundle := TJBundle.JavaClass.init;
    localBundle.putString(StringToJString('package'), SharedActivityContext.getPackageName());
    localBundle.putString(StringToJString('class'), str);
    localBundle.putInt(StringToJString('badgenumber'), 3);
    SharedActivityContext.getContentResolver.call(StrToJURI('content://com.huawei.android.launcher.settings/badge/'),StringToJString('change_badge'),StringToJString('null'),localBundle);
  end;
end;
现在手头上只有华为的手机，其他没有经过测试的代码就不贴出来了，自己找java代码转换。
判断手机类型：TJBuild.JavaClass.MANUFACTURER.EqualsIgnoreCase(StringToJString('huawei'))

来源：https://www.cnblogs.com/dannylee/p/7904185.html
 

相关阅读 >>

Delphi如何在一个窗体中嵌入另一个窗体

Delphi webbrowser通过遍历id查找元素是否存在

Delphi二值图像腐蚀算法

Delphi xe8安卓下汉字转gb2312

Delphi stopprocess 进程关闭函数

Delphi tnethttpclient的用法

Delphi让listbox实现即指即显功能

Delphi twebbrowser静音

Delphi hextoint

Delphi 获取中文/数字星期的函数

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

转载请注明出处：木庄网络博客 » delphi在手机桌面图标上显示数字