本文整理自网络，侵删。
介绍
现在很多应用如果有更新后会自动下载并自动进行安装，这样可以让使用者最早的发现应用更新，下面的代码介绍了如果进行下载，下载完成后并且自动进行安装apk，下面是具体的一个函数。
function OpenFile(const URL: string; const DisplayError: Boolean = False): Boolean;
{$IFDEF ANDROID}
var Intent: JIntent;
begin
Intent:=TJIntent.Create;
Intent.addFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
Intent.setDataAndType(TJnet_Uri.JavaClass.parse(StringToJString(URL)),
StringToJString('application/vnd.android.package-archive'));
try
SharedActivity.startActivity(Intent);
exit(true);
except
on e: Exception do
begin
if DisplayError then ShowMessage('Error: ' + e.Message);
exit(false);
end;
end;
end;
{$IFDEF}
函数说明，有两个参
1：URL='file://'+apk文件路径
需引用单元:
{$IFDEF ANDROID}
FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText,
Androidapi.JNI.Net, Androidapi.JNI.JavaTypes;
{$IFDEF}
2：DisplayError是否显示错误信息。
相关阅读 >>
Delphi webbrowser选中文本操作 设置webbrowser的内容
Delphi sysutils.strcopy、sysutils.strecopy
Delphi 消息实现窗口最小化，最大化，关闭(Delphi)
Delphi recodedatetime、recodedate、recodetime、recodeyear ... 修改时间
更多相关阅读请进入《Delphi》频道 >>
