Função para descobrir versão DLL

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 ;