Acessar valor de FileVersion

[André Ormenese 0]

Pessoal,

acho que essa pergunta chega a ofender, mas estou começando no Delphi ...

 

Como acessar o valor da FileVersion que está em Project-> Oprtions-> Version Info-> FileVersion ???

 

Obrigado

André

[marcio.theis 3]

Encontrei esta função na internet, veja se funciona:

 

function FP_VersaoEXE:string;

var

   Dummy: THandle;
   BufferSize, Len: Integer;
   Buffer: PChar;
   LoCharSet, HiCharSet: Word;
   Translate, Return: Pointer;
   StrFileInfo, Flags: string;

begin
   BufferSize := GetFileVersionInfoSize(PChar(Application.ExeName), Dummy);
   if BufferSize <> 0 then begin
	  GetMem(Buffer, Succ(BufferSize));
	  try
		 if GetFileVersionInfo(PChar(Application.ExeName), 0, BufferSize, Buffer) then
			if VerQueryValue(Buffer, '\VarFileInfo\Translation', Translate, UINT(Len)) then begin
			   LoCharSet := LoWord(Longint(Translate^));
			   HiCharSet := HiWord(Longint(Translate^));
			   StrFileInfo := Format('\StringFileInfo\0%x0%x\%s', [LoCharSet, HiCharSet, 'FileVersion']);
			   if VerQueryValue(Buffer, PChar(StrFileInfo), Return, UINT(Len)) then Result:= strpas(PChar(Return));
			end;
	  except
		 Result := 'Vazio';
	  end;
   end;

end;