Version Info

[robinhocne]

Bom dia Pessoal,

Nunca utilizei controle de versão e agora estou precisando muito....então pesquisei que no Delphi em Version Info só habilitando e colocando o auto increment já iria resolver minha situação,

mas pelo jeito não 100%.

Habilitei o auto increment, todos os modules atributes, mas quando compilo o projeto não sai do 1.0.0.0.... abaixo a função que uso para buscar o numero, mas nunca muda.

function GetVersaoArq: string;
var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVSFixedFileInfo;
  Dummy: DWORD;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar( ParamStr(0)), Dummy);
  GetMem(VerInfo, VerInfoSize);
  GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);

  with VerValue^ do

  begin

    Result := IntToStr(dwFileVersionMS shr 16);

    Result := Result + '.' + IntToStr(

      dwFileVersionMS and $FFFF);

    Result := Result + '.' + IntToStr(

      dwFileVersionLS shr 16);

    Result := Result + '.' + IntToStr(

      dwFileVersionLS and $FFFF);

  end;

  FreeMem(VerInfo, VerInfoSize);

end;

[Jhonas]

está tudo explicado neste tópico de como usar o Version Info do delphi

https://www.scriptbrasil.com.br/forum/topic/157112-resolvidocontrole-de-versao-da-aplicacao/?p=615765

abraço

[robinhocne]

sim, até peguei por ele, mas como falei, mesmo colocando para auto increment ele não está incrementando.

[Jhonas]

caso o numero da versão não seja incrementado automaticamente, veja se não deixou alguma opção desmarcada

OBS: uso sem problemas no delphi 7

abraço

[robinhocne]

Estou usando também o delphi 7 e não está funcionando....quando eu compilo (Crtl+F9) ou (F9) ele não deveria mudar o Build ?

Está tudo marcado, veja a imagem abaixo.

[Jhonas]

va em Menu > Project e clique na opção < Build All Projects > ou < Build nomedoseuprojeto >

somente dessa forma é que o numero da versão será incrementado ( 1.0.0.2 ) ( 1.0.0.3 ) ... etc

abraço

[robinhocne]

Agora foi Jhonas, então eu tenho que dar um BuildAll....

uma duvida....qunado chegar no Build 9, o proximo vai para 0 e o release muda para 1 ?

[Jhonas]

uma duvida....quando chegar no Build 9, o proximo vai para 0 e o release muda para 1 ?

não ... sera ( 1.0.0.10 ) , ( 1.0.0.11 ) etc...

voce é que tem que mudar a versão ou o release ... ok ?

somente o build é que será incrementado

abraço