从inno设置中获取exe或dll的版本

[Setup]
AppName=MyApp
AppVersion=1.0
DefaultDirName={pf}\MyApp

[Files]
Source: "MyApp.exe"; DestDir: "{app}"
Source: "MyLibrary.dll"; DestDir: "{app}"

[Code]
function ExtractFileVersion(const FileName: String): String;
  external 'ExtractFileVersion@files:version.dll stdcall';

var
  MyAppVersion: String;

procedure InitializeWizard;
begin
  MyAppVersion := ExtractFileVersion(ExpandConstant('{app}\MyApp.exe'));
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssInstall then
  begin
    // 在安装过程中输出版本号
    MsgBox('MyApp版本号：' + MyAppVersion, mbInformation, MB_OK);
  end;
end;