如何在Android上運行Delphi時獲取文件的文件版本信息？

Question

我正在使用Delphi XE7，我想將有關我的應用程序的某些信息記錄到日誌文件中，因此我需要通過MSWindows中的GetFileVersionInfo移植到Android中。如果可能的話，我想要一個適用於任何文件的常規例程。我看到有一個how to get file version info in OSX here的Delphi示例，但我無法找到任何指向相關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;