실행파일의 버전정보 가져오기

파일 버전정보를 읽어오는 함수

function GetFileVersion(sFilePath: string): string;
var
  Size, Size2: DWord;
  Pt, Pt2: Pointer;
begin
  Result := '';

  Size := GetFileVersionInfoSize(pChar(sFilePath), Size2);

  if Size > 0 then
  begin
    GetMem(Pt, Size);

    try
      GetFileVersionInfo(pChar(sFilePath), 0, Size, Pt);
      VerQueryValue (Pt, '\', Pt2, Size2);

      with TVSFixedFileInfo(Pt2^) do
      begin
        Result := Format('%d.%d.%d.%d', [HiWord(dwFileVersionMS), LoWord(dwFileVersionMS), HiWord(dwFileVersionLS), LoWord(dwFileVersionLS)]);
      end;
    finally
      FreeMem(Pt);
    end;
  end;
end;

파일 버전 확인하기

ShowMessage(GetFileVersion(ParamStr(0)));