Fórum Atualização de versão #146927

Pessoal eu tenho esse codigo para atualizar minha versão :

function AchaVersao:String;
var
vInfoSize,DetSize : DWord;
pVInfo,pDetail : Pointer;
begin

// Aloca um bloco de memória do tamanho correto das informações de versão
vInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)),DetSize);
if (vInfoSize > 0) then
begin
// Cria uma variável dinâmica e direciona o ponteiro pVInfo
GetMem(pVInfo,vInfoSize);
try
// Pega as informações de versão
GetFileVersionInfo(PChar(ParamStr(0)),0,vInfoSize,pVInfo);
VerQueryValue(pVInfo,´\´,pDetail,DetSize);

// Pega a versão
Result :=
IntToStr(HiWord(TVSFixedFileInfo(pDetail^).dwFileVersionMS))+
´.´+
IntToStr(LoWord(TVSFixedFileInfo(pDetail^).dwFileVersionMS));

// Pega o Release
Result := Result +´.´+
IntToStr(HiWord(TVSFixedFileInfo(pDetail^).dwFileVersionLS));

// Pega o Build
Result := Result +
IntToStr(LoWord(TVSFixedFileInfo(pDetail^).dwFileVersionLS));

finally
FreeMem(pVInfo);
end;

end;
end;

Tem como eu verificar qual a versão em um EXE.
que esta a partir de um código Delphi .

grato,
Cristiano