Lazarus 获取程序版本号(最新能用)

Lazarus 获取程序版本号，之前发布的在Delphi下能用，Lazarus获取不了

在Uses处加上fileinfo，如下：

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, fileinfo;  

创建一个获取版本号的函数

function GetFileVer: String;
var
  FileVer: TFileVersionInfo;
begin

  FileVer := TFileVersionInfo.Create(nil);
  try
    FileVer.ReadFileInfo;

    Result := FileVer.VersionStrings.Values['FileVersion'];

  finally
    FileVer.Free;
  end;
end;         

在需要的地方调用以上函数，读取程序版本号，如：

Label1.Caption ：= ‘程序版本：’ + GetFileVer;