DELPHI 获取软件版本号

原创

已于 2023-09-23 16:34:30 修改 · 1.1k 阅读

标签

#delphi

收录于

于 2023-06-10 12:47:52 首次发布

这段代码展示了如何在不同的操作系统（Windows、Android、iOS和MacOS）上获取应用程序的版本号。通过条件编译指令，实现了针对不同平台的特定版本信息获取函数，然后在主程序中调用这些函数显示版本信息。

此代码可以跨四个平台，以下将重要代码贴上
【第一步】：在USE段引用

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,System.Variants,
 
  {$IFDEF MSWINDOWS}
  Winapi.Windows,
  {$ENDIF}

  {$IFDEF ANDROID}
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.JavaTypes,
  FMX.Helpers.Android,
  Androidapi.Helpers, // XE7 需要引入
  {$ENDIF}
  {$IFDEF IOS}
  FMX.Platform.iOS,
  iOSapi.Foundation,
  Macapi.ObjectiveC,
  {$ENDIF}

  {$IFDEF MACOS}
  FMX.Platform.Mac,
  Macapi.Foundation,
  Macapi.ObjectiveC,
  {$ENDIF}

  FMX.ExtCtrls;

【第二步】：编写获取版本号的函数

{$IFDEF MSWINDOWS}  //Windows系统获取版本号
procedure GetBuildInfo(var V1, V2, V3, V4: word);
var
  VerInfoSize, VerValueSize, Dummy: DWORD;
  VerInfo: Pointer;
  VerValue: PVSFixedFileInfo;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
  if VerInfoSize > 0 then
  begin
      GetMem(VerInfo, VerInfoSize);
      try
        if GetFileVersionInfo(PChar(ParamStr(0)), 0, VerIn