Controlando a versão da sua aplicação

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (2)  (0)

Veja nesta dica como Controlar a versão da sua aplicação

 

Podemos definir e controlar o número da versão de nossa aplicação Delphi. Dentro da janela de opções do projeto (Project>Options) na aba Version Info basta habilitar a opção Include version information in project e informar o número da versão corrente de sua aplicação dentro da seção Module version number.

Além do número da versão podemos entrar com diversas outras informações como nome da empresa, nome do produto, descrição, entre outras. O Delphi permite ainda que você crie novas chaves/valores dentro da seção Key/Value através da opção Add Key no menu de contexto.

Todas as informações são armazenadas no arquivo executável gerado pela nossa aplicação quando compilamos a mesma. Para acessar essas informações a partir do Windows, basta selecionar o arquivo executável e clicar sobre a opção Propriedades disponível no menu de contexto.

Através do número da versão do aplicativo podemos controlar atualizações e identificar a versão do aplicativo que está rodando em cada cliente. Você pode capturar esse número de versão em tempo de execução para mostrar ao usuário em uma tela do tipo Sobre ou About, por exemplo. Para isso, utilize o método do código abaixo:

 

Pegando a versão do arquivo

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;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?