1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

type
  TVersionInfo = packed record
    Major   : Word;
    Minor   : Word;
    Release : Word;
    Build   : Word;
  end;

{=== GetFileVersion ============================================================
  Author  : Motzi
  Date    : unknown

  Purpose : Ermittelt die Versionsnummer des Programms
===============================================================================}
function GetFileVersion(const aFileName : String; pProductVersion: PString): TVersionInfo;
var
  dwVersionSize   : DWord;
  dwDummy         : DWord;
  pVerBuf         : Pointer;
  pFixBuf         : PVSFixedFileInfo;
  pVarFInfo       : PChar;
  dwVarFInfo      : DWord;
  dwVarTrans      : DWord;
  aVarFPath: array [0..MAX_PATH] of Char;
begin
  ZeroMemory(@Result, SizeOf(Result));
  dwDummy := 0;

  dwVersionSize := GetFileVersionInfoSize(Pointer(aFileName), dwDummy);
  if dwVersionSize > 0 then
  begin
    pVerBuf := GetMemory(dwVersionSize);
    try
      if GetFileVersionInfo(Pointer(aFileName), 0, dwVersionSize, pVerBuf) then
      begin
        if VerQueryValue(pVerBuf, '\', Pointer(pFixBuf), dwDummy) then
        begin
          Result.Major   := pFixBuf^.dwFileVersionMS and $FFFF0000 shr 16;
          Result.Minor   := pFixBuf^.dwFileVersionMS and $0000FFFF;
          Result.Release := pFixBuf^.dwFileVersionLS and $FFFF0000 shr 16;
          Result.Build   := pFixBuf^.dwFileVersionLS and $0000FFFF;
        end;

        if pProductVersion <> nil then
        begin
          pVarFInfo := nil;
          dwVarFInfo := 0;
          if VerQueryValue(pVerBuf, '\VarFileInfo\Translation', Pointer(pVarFInfo), dwVarFInfo) then
          begin
            dwVarTrans := HiWord(PDWORD(pVarFInfo)^) or (Word(PDWORD(pVarFInfo)^) shl 16);
            wvsprintf(aVarFPath, '\StringFileInfo\%8.8x\', PChar(@dwVarTrans));
            lstrcat(aVarFPath, 'ProductVersion');
            pVarFInfo := nil;
            dwVarFInfo := 0;
            if VerQueryValue(pVerBuf, aVarFPath, Pointer(pVarFInfo), dwVarFInfo) then
              pProductVersion^ := pVarFInfo;
          end;
        end;
      end;
    finally
      FreeMemory(pVerBuf);
    end;
  end;
end;