Fórum Carregar versão no Caption do Form #397661

{ Retorna a versão do arquivo passado como parâmetro } 
function  Ret_Versao(NomeArq: string): string; 
var 
  VerInfoSize, VerValueSize, Dummy: DWORD; 
  VerInfo: Pointer; 
  VerValue: PVSFixedFileInfo; 
  Maior, Menor, Release, Build: Word; 
begin 
  Result := ''; 
 
  VerInfoSize := GetFileVersionInfoSize( PChar(NomeArq), Dummy );

  GetMem( VerInfo, VerInfoSize );

  try

    GetFileVersionInfo( PChar(NomeArq), 0, VerInfoSize, VerInfo );

    VerQueryValue( VerInfo, '', Pointer(VerValue), VerValueSize );

    with VerValue^ do

    begin

      Maior := dwFileVersionMS shr 16;

      Menor := dwFileVersionMS and $FFFF;

      Release := dwFileVersionLS shr 16;

      Build := dwFileVersionLS and $FFFF;

    end;

  finally

    FreeMem( VerInfo, VerInfoSize );

  end;

 
  Result :=

    IntToStr(Maior) + '.' + IntToStr(Menor) + '.' +

    IntToStr(Release) + '.' + IntToStr(Build);

end;

  Self.Caption := Self.Caption + ' ' + Ret_Versao( Application.ExeName );