如何用DELPHI获得文件的版本号科商盈工作室www.Csina.com.cn

cnhxjtoa

于 2007-12-05 08:52:00 发布

阅读量865

点赞数

本文链接：https://blog.csdn.net/cnhxjtoa/article/details/1917489

版权

以下程序在DELPHI7 W2003测试通过：

function GetFileVersion(AFileName: string): string;
var
n, Len: DWORD;
Buf : PChar;
Value: Pointer;
szName: array [0..255] of Char;
Transstring: string;
begin
Len := GetFileVersionInfoSize(PChar(AFileName), n);
if Len > 0 then
begin
    Buf := AllocMem(Len);
    if GetFileVersionInfo(Pchar(AFileName), n, Len, Buf) then
    begin
      Value := nil;
      VerQueryValue(Buf, '/VarFileInfo/Translation', Value, Len);
      if Value <> nil then
        Transstring := IntToHex(MakeLong(HiWord(LongInt(Value^)),
          LoWord(LongInt(Value^))),8);
      StrPCopy(szName, '/stringFileInfo/' + Transstring + '/FileVersion');
      if VerQueryValue(Buf, szName, Value, Len) then
        Result := StrPas(Pchar(Value));
    end;
    FreeMem(Buf, n);
end;
end;