Как я могу получить информацию о версии файла при запуске Delphi на Android?

Question

Я использую Delphi XE7 и хочу записать некоторую информацию о моем приложении в файл журнала, поэтому мне нужно портировать через GetFileVersionInfo в MSWindows для работы в Android. Если возможно, я бы хотел общую процедуру, которая работает для любого файла. Я вижу, что есть пример Delphi о том, как получить информацию о версии файла в OSX, но я не могу найти ничего, что указывало бы на соответствующий Android-модуль. Может кто-нибудь помочь, пожалуйста?

Answer 1

Вот быстрый пример:

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;