Fórum Como pegar em a versão e Builder da aplicação? #171010

function GetFileVersion(Arquivo: string): String;
var
  size, sizeFileInfo, ret: DWord;
  pData, pInfo:Pointer;

begin
  Result := ´´;
  size := GetFileVersionInfoSize(PCHAR(Arquivo), ret);
  GetMem(pData, size);
  try
    GetFileVersionInfo(PCHAR(Arquivo), 0, size, pData);
    VerQueryValue(pData, PCHAR(´\StringFileInfo\041604E4\FileVersion´), pInfo, sizeFileInfo);
    Result := PCHAR(pInfo);
  finally
    FreeMem(pData);
  end;
end;