zoukankan      html  css  js  c++  java
  • 老外写的在桌面添加快捷方式(DELPHI XE5 ANDROID)

    Uses
    Androidapi.JNI.GraphicsContentViewText, FMX.Helpers.Android,
    Androidapi.JNI.JavaTypes, FMX.Platform.Android, AndroidApi.JniBridge, AndroidApi.Jni.App,
    AndroidAPI.jni.OS;

    procedure TForm1.FormCreate(Sender: TObject);

    {$IFDEF ANDROID}
    var
    ShortcutIntent: JIntent;
    addIntent: JIntent;
    wIconIdentifier : integer;
    wIconResource : JIntent_ShortcutIconResource;
    {$ENDIF}
    begin
    {$IFDEF ANDROID}

    ShortcutIntent := TJIntent.JavaClass.init(SharedActivityContext, SharedActivityContext.getClass);
    ShortcutIntent.setAction(TJIntent.JavaClass.ACTION_MAIN);

    addIntent := TJIntent.Create;
    addIntent.putExtra(TJIntent.JavaClass.EXTRA_SHORTCUT_INTENT, TJParcelable.Wrap((shortcutIntent as ILocalObject).GetObjectID));

    // here we need to cast the intent as it’s not done in delphi by default, not like java

    addIntent.putExtra(TJIntent.JavaClass.EXTRA_SHORTCUT_NAME, StringToJString(Application.Title));
    addIntent.setAction(StringToJString('com.android.launcher.action.INSTALL_SHORTCUT'));
    // get icon resource identifier


    wIconIdentifier := SharedActivity.getResources.getIdentifier(StringToJString('ic_launcher'),
    StringToJString('drawable'), StringToJString('com.embarcadero.HeaderFooterApplication'));

    // if the app name change, you must change the package name

    //只适用于HeaderFooter,其他的要改下('com.embarcadero.HeaderFooterApplication')。

    wIconResource := TJIntent_ShortcutIconResource.JavaClass.fromContext(SharedActivityContext, wIconIdentifier);

    // set icon for shortcut
    addIntent.putExtra(TJIntent.JavaClass.EXTRA_SHORTCUT_ICON_RESOURCE, TJParcelable.Wrap((wIconResource as ILocalObject).GetObjectID));

    SharedActivityContext.sendBroadcast(addIntent);

    {$ENDIF}
    end;

  • 相关阅读:
    Django-4
    Django-3
    博客中涉及的源码下载
    源码阅读系列:EventBus
    使用DFA做文本编辑器的自动提示
    计算机网络-IP类型判断
    感兴趣的文章搜集
    The Engine Document of JustWeEngine
    [译文]选择使用正确的 Markdown Parser
    Android源码阅读-Filter过滤器
  • 原文地址:https://www.cnblogs.com/happyhills/p/3548699.html
Copyright © 2011-2022 走看看