[Delphi] 自分自身のバージョン情報を取得するには

unit Version;

interface

type
  TVersion = record
    Major, Minor, Revision, Build: Cardinal;
    StringVersion: String;
  end;

var
  theVersion: TVersion;

implementation

uses Windows, SysUtils, Classes, Forms;

procedure LoadVersionInfo;
var
  sExeName: string;
  nSize, nRead: DWORD;
  pBuffer: PChar;
  pValue: PChar;
  tsStrings: TStringList;
begin
  sExeName := Application.ExeName;
  nSize := GetFileVersionInfoSize(PChar(sExeName), nSize);
  if nSize > 0 then
  begin
    pBuffer := AllocMem(nSize);
    try
      GetFileVersionInfo(PChar(sExeName), 0, nSize, pBuffer);
      if VerQueryValue(pBuffer, PChar('StringFileInfo\041103A4\FileVersion'), Pointer(pValue), nRead) then
      begin
        tsStrings := TStringList.Create;
        try
          ExtractStrings(['.'], [], pValue, tsStrings);
          with theVersion do
          begin
            Major := StrToInt(tsStrings[0]);
            Minor := StrToInt(tsStrings[1]);
            Revision := StrToInt(tsStrings[2]);
            Build := StrToInt(tsStrings[3]);
            StringVersion := pValue;
          end;
        finally
          tsStrings.Free;
        end;
      end;
    finally
      FreeMem(pBuffer, nSize);
    end;
  end;
end;

initialization
  LoadVersionInfo;

end.