Função para descobrir o número de versão de uma dll.

No parâmetro aFileName,  deve-se informar o caminho completo com extensão, Ex: ('C:\Windows\System32\NFeX.dll')

function MostrarVersaoDll( const aFileName : string ) : string ;

var infoSize: DWORD;
var  verBuf:   pointer;
var  verSize:  UINT;
var  wnd:      UINT;
var  FixedFileInfo : PVSFixedFileInfo;
begin
  infoSize := GetFileVersioninfoSize(PChar(aFileName), wnd);

  result := '';

  if infoSize <> 0 then
  begin
    GetMem(verBuf, infoSize);
    try
      if GetFileVersionInfo(PChar(aFileName), wnd, infoSize, verBuf) then
      begin
        VerQueryValue(verBuf, '\', Pointer(FixedFileInfo), verSize);

        result := IntToStr(FixedFileInfo.dwFileVersionMS div $10000) + '.' +
                  IntToStr(FixedFileInfo.dwFileVersionMS and $0FFFF) + '.' +
                  IntToStr(FixedFileInfo.dwFileVersionLS div $10000) + '.' +
                  IntToStr(FixedFileInfo.dwFileVersionLS and $0FFFF);
      end ;
    finally
      FreeMem(verBuf);
    end ;
  end ;
end ;