我正在使用 Delphi XE7,我想将有关我的应用程序的一些信息记录到日志文件中,因此我需要移植 MSWindows 中的 GetFileVersionInfo 以在 Android 中工作。如果可能的话,我想要一个适用于任何文件的通用例程。我看到这里有一个如何在 OSX 中获取文件版本信息的 Delphi 示例,但我找不到任何指向相关 Android 单元的内容。有人可以帮忙吗?
问问题
1434 次
1 回答
7
这是一个简单的例子:
uses
...
Androidapi.Helpers,
Androidapi.JNI.App,
Androidapi.JNI.GraphicsContentViewText,
Androidapi.NativeActivity;
function GetPackageInfo: JPackageInfo;
var
Activity: JActivity;
begin
Activity := TJNativeActivity.Wrap(PANativeActivity(System.DelphiActivity)^.clazz);
Result := Activity.getPackageManager.getPackageInfo(Activity.getPackageName, 0);
end;
procedure TPForm.FormCreate(Sender: TObject);
var
Info: JPackageInfo;
begin
Info := GetPackageInfo;
Label1.Text := Format('versionName: "%s", versionCode: %d', [JStringToString(Info.versionName), Info.versionCode]);
end;
于 2014-09-25T16:53:36.777 回答