(Resolvido) controle de versão da aplicação

[flavioavilela]

bom dia a todos, para controlar a versão da minha aplicação e sempre mostrar na tela, estou fazendo assim:

Function VersaoExe: String;
type
  PFFI = ^vs_FixedFileInfo;
var
  F : PFFI;
  Handle : Dword;
  Len : Longint;
  Data : Pchar;
  Buffer : Pointer;
  Tamanho : Dword;
  Parquivo: Pchar;
  Arquivo : String;
begin
  Arquivo := Application.ExeName;
  Parquivo := StrAlloc(Length(Arquivo) + 1);
  StrPcopy(Parquivo, Arquivo);
  Len := GetFileVersionInfoSize(Parquivo, Handle);
  Result := '';
  if Len > 0 then
  begin
    Data:=StrAlloc(Len+1);
    if GetFileVersionInfo(Parquivo,Handle,Len,Data) then
    begin
      VerQueryValue(Data, '\',Buffer,Tamanho);
      F := PFFI(Buffer);
      Result := Format('%d.%d.%d.%d',
      [HiWord(F^.dwFileVersionMs),
      LoWord(F^.dwFileVersionMs),
      HiWord(F^.dwFileVersionLs),
      Loword(F^.dwFileVersionLs)]
      );
    end;
    StrDispose(Data);
  end;
  StrDispose(Parquivo);
end;

e para chamar, basta:

Showmessage(VersaoExe);

só que, o que quero saber é, o que eu faço que as versões vão mudando? cada contador desse, será incrementado de qual forma???

[Jhonas]

só que, o que quero saber é, o que eu faço que as versões vão mudando? cada contador desse, será incrementado de qual forma???

Voce pode incluir as informações de versões de seu aplicativo pelo proprio delphi

Vá em Project > Options > Version Info > e clique em Include version information in project

============================================

Outra função

http://delphi.about.com/cs/adptips2001/a/bltip0701_4.htm

============================================

Componente rpVersionInfo

http://www.esanu.name/delphi/Win%20API/Ver...n%20Delphi.html

abraço

[flavioavilela]

pegar a a versão eu sei... eu queria saber como que isso vai sendo incrementado... a cada compilação? a cada o que que vai sendo incrementado?

[Jhonas]

eu queria saber como que isso vai sendo incrementado... a cada compilação? a cada o que que vai sendo incrementado?

acabei de passar para voce

Vá em Project > Options > Version Info > e clique em Include version information in project

abraço

[flavioavilela]

ok, obrigado

[flavioavilela]

tipo, fiz tudo lá em Options... ele me retornou a versão tudo beleza... só que, eu já compilei ele aqui umas 100 vezes, e a versão retorna 1.0.0.0... é isso mesmo?

[Jhonas]

tipo, fiz tudo lá em Options... ele me retornou a versão tudo beleza... só que, eu já compilei ele aqui umas 100 vezes, e a versão retorna 1.0.0.0... é isso mesmo?

O fato de voce compilar umas 100 vezes, mesmo que tenha alterado apenas algumas linhas de comando, voce terá sempre o mesmo resultado se voce não alterar o Module Version Number ou usar a opção Auto_increment build number

O controle de versão é seu ... voce é quem deve altera-lo sempre que necessario

abraço

[flavioavilela]

eu marquei a opção Auto_increment build number, ele não deveria incrementar automatico pra mim???

[Jhonas]

eu marquei a opção Auto_increment build number, ele não deveria incrementar automatico pra mim???

somente quando houver mudanças significativas no código

abraço

[flavioavilela]

hum... uma "mudança significativa" seria uma funcionalidade nova ou acrescentar relatórios ou remover outros... inserir outros tipos de cadastros e por ai vai... isso seria uma "mudança significativa"???

[Jhonas]

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

abraço

[flavioavilela]

ok, obrigado... resolvido