老外写的在桌面添加快捷方式（DELPHI XE5 ANDROID）
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了老外写的在桌面添加快捷方式（DELPHI XE5 ANDROID），小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1718字，纯文字阅读大概需要3分钟。
内容图文
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;
原文：http://www.cnblogs.com/happyhills/p/3548699.html
内容总结
以上是互联网集市为您收集整理的老外写的在桌面添加快捷方式（DELPHI XE5 ANDROID）全部内容，希望文章能够帮你解决老外写的在桌面添加快捷方式（DELPHI XE5 ANDROID）所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。