Delphi 获取文件版本号

1.如果将其中的dwFileVersion引用改为dwProductVersion就可以获取产品版本号了；
2.在Delphi提供的源代码SysUtils注释中提到的VFF_DEBUG等应该是VS_FF_DEBUG，在Windows单元有定义，在{ Translated from WINVER.H }附近。
http://msdn.microsoft.com/en-us/library/windows/desktop/ms646997(v=vs.85).aspx

//获取文件版本号
function GetFileVersionString(const AFileName: String): String;
var
  FileName: string;
  InfoSize, Wnd: DWORD;
  VerBuf: Pointer;
  FI: PVSFixedFileInfo;
  VerSize: DWORD;
begin
  Result := '';
  FileName := AFileName;
  UniqueString(FileName);
  InfoSize := GetFileVersionInfoSize(PChar(FileName), Wnd);
  if InfoSize <> 0 then
  begin
    GetMem(VerBuf, InfoSize);
    try
      if GetFileVersionInfo(PChar(FileName), Wnd, InfoSize, VerBuf) then
        if VerQueryValue(VerBuf, '\', Pointer(FI), VerSize) then
        begin
          Result:= InttoStr(FI.dwFileVersionMS div $10000)+'.'
            +IntToStr(FI.dwFileVersionMS mod $10000)+'.'
            +IntToStr(FI.dwFileVersionLS div $10000)+'.'
            +IntToStr(FI.dwFileVersionLS mod $10000);
        end;
    finally