Fórum Retornar a versão da minha aplicação em Delphi 7 #277068

procedure Tfprincipal.LevantarVersao;
var
iTamanho        : Integer;
wTamanho        : DWord;
Informa         : PChar;
Valor, Lingua   : Pointer;
Tam             : UINT;
sInicio, versao : string;
begin
  {Informações de Versão}
  iTamanho := GetFileVersionInfoSize(PChar(ParamStr(0)),wTamanho);
  if (iTamanho > 0) then
    begin
    GetMem(Informa,iTamanho);
    GetFileVersionInfo(PChar(ParamStr(0)),0,iTamanho,Informa);
    VerQueryValue(Informa,´\\VarFileInfo\\Translation´,Lingua,Tam);
    sInicio := ´\\StringFileInfo\\´ + IntToHex(LoWord(LongInt(Lingua^)),4) + IntToHex(HiWord(LongInt(Lingua^)),4) + ´\\´;
    if (VerQueryValue(Informa,PChar(sInicio + ´FileVersion´),Valor,Tam))
      then
        begin
        if (Tam > 0)
          then versao := PChar(Valor);
        end;
    FreeMem(Informa,iTamanho);
    end;
  StatusBar1.Panels[1].Text := ´-Versão: ´ + versao + ´-´;
end;