Incrementar a versão do meus sistemas desenvolvidos

02/03/2010

1

Boa tarde,

Existe alguma opção no Delphi 2009 que controle a versão de meus projetos? Exemplo: 1.0.0.1 (algo semelhante) que faça o incremento automaticamente?

Caso positivo, onde posso encontrar essa opção e como acessar via código para exibição numa StatusBar?


Desde já obrigado.
Responder

Posts

02/03/2010

Wilson Junior

Para incrementar a versão do BUILD acesse o menu "Projct/Options" e marque as opções selecionadas em vermelho.






Para retornar a versão, utilize a rotina abaixo:

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;


Retornar a versão do seu aplicativo:
Ret_Versao( Application.ExeName );


Espero ter colaborado.
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira