Android实例-获取程序版本号(XE10+小米2)-白红宇

Android实例-获取程序版本号(XE10+小米2)

阅读量：7078 次

发布时间：2019-06-28

本文共 3941 字，大约阅读时间需要 13 分钟。

相关资料： 383675978群号

实例源码：

1 unit Unit1; 2  3 interface 4  5 uses 6   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 7   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, 8   FMX.Controls.Presentation, FMX.StdCtrls, 9   xGetVerNo;//Get_OSVer使用10 11 type12   TForm1 = class(TForm)13     Label1: TLabel;14     Label2: TLabel;15     procedure FormCreate(Sender: TObject);16   private17     {
     Private declarations }18   public19     {
     Public declarations }20   end;21 22 var23   Form1: TForm1;24 25 implementation26 27 {
    $R *.fmx}28 {
    $R *.NmXhdpiPh.fmx ANDROID}29 30 procedure TForm1.FormCreate(Sender: TObject);31 begin32   Label2.Text := Get_OSVer;//获取版本号33 end;34 35 end.

第三方源码：

1 {
    *******************************************************}  2 {
                                                           }  3 {
           XE7 安卓框架                                    }  4 {
                                                           }  5 {
           版权所有 (C) 2015 打工的程序员                  }  6 {
           日期:    2015.01.15         }  7 {
           源码QQ：2403182533  8 {                                                       }  9 {
    *******************************************************} 10  11 unit xGetVerNo; 12  13 interface 14  15 uses 16   {
    $IFDEF MSWINDOWS} 17   Winapi.Windows, 18   {
    $ENDIF} 19  20   {
    $IFDEF ANDROID} 21   Androidapi.JNI.GraphicsContentViewText, 22   Androidapi.JNI.JavaTypes, 23   FMX.Helpers.Android, 24   Androidapi.Helpers, 25   {
    $ENDIF} 26  27   {
    $IFDEF IOS} 28   FMX.Platform.iOS, 29   iOSapi.Foundation, 30   Macapi.ObjectiveC, 31   {
    $ENDIF} 32  33   {
    $IFDEF MACOS} 34   FMX.Platform.Mac, 35   Macapi.Foundation, 36   Macapi.ObjectiveC, 37   {
    $ENDIF}System.SysUtils ; 38  39  function Get_OSVer:string; 40  41 implementation 42  43  44 {
    $IFDEF MSWINDOWS} 45 procedure GetBuildInfo(var V1, V2, V3, V4: word); 46 var 47   VerInfoSize, VerValueSize, Dummy: DWORD; 48   VerInfo: Pointer; 49   VerValue: PVSFixedFileInfo; 50 begin 51   VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy); 52   if VerInfoSize > 0 then 53   begin 54       GetMem(VerInfo, VerInfoSize); 55       try 56         if GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo) then 57         begin 58           VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize); 59           with VerValue^ do 60           begin 61             V1 := dwFileVersionMS shr 16; 62             V2 := dwFileVersionMS and $FFFF; 63             V3 := dwFileVersionLS shr 16; 64             V4 := dwFileVersionLS and $FFFF; 65           end; 66         end; 67       finally 68         FreeMem(VerInfo, VerInfoSize); 69       end; 70   end; 71 end; 72  73 function GetBuildInfoAsString: string; 74 var 75   V1, V2, V3, V4: word; 76 begin 77   GetBuildInfo(V1, V2, V3, V4); 78   Result := IntToStr(V1) + '.' + IntToStr(V2) + '.' + 79     IntToStr(V3) + '.' + IntToStr(V4); 80 end; 81 {
    $ENDIF} 82  83 function Get_OSVer:string; 84 {
    $IFDEF MSWINDOWS} 85 begin 86   Result:=GetBuildInfoAsString; 87 end; 88 {
    $ENDIF} 89  90 {
    $IFDEF ANDROID} 91 var PackageInfo: JPackageInfo; 92     PackageName: JString; 93 begin 94   PackageName := SharedActivityContext.getPackageName; 95   PackageInfo := SharedActivityContext.getPackageManager.getPackageInfo(PackageName, 0); 96   Result:= JStringToString(PackageInfo.versionName); 97 end; 98 {
    $ENDIF} 99 100 {
    $IF Defined(IOS) or Defined(MACOS)}101 var AppNameKey: Pointer;102     AppBundle: NSBundle;103     NSAppName: NSString;104 begin105   AppBundle := TNSBundle.Wrap(TNSBundle.OCClass.mainBundle);106   AppNameKey := (NSSTR('CFBundleVersion') as ILocalObject).GetObjectID;107   NSAppName := TNSString.Wrap(AppBundle.infoDictionary.objectForKey(AppNameKey));108   Result:=  UTF8ToString(NSAppName.UTF8String)+#13#10;109 end;110 {
    $ENDIF}111 112 end.