Delphi 获得应用程序的版本号

最新推荐文章于 2024-05-14 15:57:48 发布

转载最新推荐文章于 2024-05-14 15:57:48 发布 · 4.4k 阅读

文章标签：

#delphi #string #function #exe

delphi 专栏收录该内容

34 篇文章

订阅专栏

本文介绍了一种使用Delphi代码来获取应用程序(EXE文件)版本号的方法。通过调用GetFileVersionInfoSize、GetFileVersionInfo及VerQueryValue等API函数，可以精确地读取并返回EXE文件的版本信息。

function ShowVersion:String; // 获得应用程序的版本号 var VerInfo : PChar; lpTranslate : PLANGANDCODEPAGE; FileName:String; VerInfoSize, VerSize, cbTranslate : DWORD; VerValueSize : DWORD; Data : String; VerFileV:PChar; lpFileVersion:string; begin Result := '0.0.0.0'; FileName := Application.ExeName; // 应用程序对应的 exe 文件 VerInfoSize := GetFileVersionInfoSize(PChar(FileName),VerSize); if VerInfoSize > 0 then begin VerInfo := AllocMem(VerInfoSize); GetFileVersionInfo(PChar(FileName),0,VerInfoSize,VerInfo); VerQueryValue(VerInfo, PChar('/VarFileInfo/Translation'), Pointer(lpTranslate),cbTranslate); if cbTranslate <> 0 then begin Data := format('/StringFileInfo/%.4x%.4x/FileVersion',[lpTranslate^.wLanguage,lpTranslate^.wCodePage]); VerQueryValue(VerInfo, PAnsiChar(data),Pointer(VerFileV), VerValueSize); if VerValueSize <> 0 then begin SetString(lpFileVersion,VerFileV,VerValueSize-1); Result:=lpFileVersion; end; end; FreeMem(VerInfo,VerInfoSize); end else begin Result:='0.0.0.0'; Application.MessageBox('获取文件版本信息时遇到致命错误，请重新打开软件。','错误',MB_OK+MB_ICONSTOP); Application.Terminate; end; end;