Artigos Delphi Controlando a versão da sua aplicação

Controlando 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;