uses fileinfo;
//----------
function GetFileVersion_ext(): TStringList;
{ 读取程序版本信息
Displays file version info for
- Windows PE executables
- Linux ELF executables (compiled by Lazarus)
- macOS MACH-O executables (compiled by Lazarus)
Runs on Windows, Linux, macOS
}
begin
Result := TStringList.Create;
FileVerInfo:=TFileVersionInfo.Create(nil);
try
FileVerInfo.ReadFileInfo;
Result.Add(FileVerInfo.VersionStrings.Values['CompanyName']);
Result.Add(FileVerInfo.VersionStrings.Values['FileDescription']);
Result.Add(FileVerInfo.VersionStrings.Values['FileVersion']);
Result.Add(FileVerInfo.VersionStrings.Values['InternalName']);
Result.Add(FileVerInfo.VersionStrings.Values['LegalCopyright']);
Result.Add(FileVerInfo.VersionStrings.Values['OriginalFilename']);
Result.Add(FileVerInfo.VersionStrings.Values['ProductName']);
Result.Add(FileVerInfo.VersionStrings.Values['ProductVersion']);
//showmessage('ver:'+FileVerInfo.VersionStrings.Values['FileVersion']);
//writeln('Company: ',FileVerInfo.VersionStrings.Values['CompanyName']);
//writeln('File description: ',FileVerInfo.VersionStrings.Values['FileDescription']);
//writeln('File version: ',FileVerInfo.VersionStrings.Values['FileVersion']);
//writeln('Internal name: ',FileVerInfo.VersionStrings.Values['InternalName']);
//writeln('Legal copyright: ',FileVerInfo.VersionStrings.Values['LegalCopyright']);
//writeln('Original filename: ',FileVerInfo.VersionStrings.Values['OriginalFilename']);
//writeln('Product name: ',FileVerInfo.VersionStrings.Values['ProductName']);
//writeln('Product version: ',FileVerInfo.VersionStrings.Values['ProductVersion']);
finally
FileVerInfo.Free;
end;
end;
//-------在需要的地方调用以上函数，读取程序版本号
statusBar1.Panels.Items[1].Text:=Format('%s %s', [' Version：', GetFileVersion_ext.ValueFromIndex[2]]);