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

以下程序在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;