本文整理自网络,侵删。
//取得文件版本function GetFileVer(strFileName: String): String;var n, Len: DWORD; Buf : PChar; Value: Pointer; szName: array [0..255] of Char; Transstring: String;begin Len := GetFileVersionInfoSize(PChar(strFileName), n); if Len > 0 then begin Buf := AllocMem(Len); if GetFileVersionInfo(Pchar(strFileName), n, Len, Buf) then begin Value := nil; VerQueryValue(Buf, '\VarFileInfo\Translation', Value, Len); if Value <> nil then begin Transstring := IntToHex(MakeLong(HiWord(LongInt(Value^)), LoWord(LongInt(Value^))),8); end; StrPCopy(szName, '\stringFileInfo\' + Transstring + '\FileVersion'); if VerQueryValue(Buf, szName, Value, Len) then begin Result := StrPas(Pchar(Value)); end; FreeMem(Buf, n); end; end;end;
相关阅读 >>
Delphi xe 中的字符串生成哈希值(md5 / sha-1 / jenkins)
Delphi 是否是闰年- isleapyear、isinleapyear
更多相关阅读请进入《Delphi》频道 >>