DELPHI - FAQ

function GetVersionNrDLL(dll: string): string;
var
  l                 : integer;
  h                 : THandle;
  p                 : PChar;
  F                 : PVSFixedFileInfo;
  FL                : Cardinal;
begin
  Result := '';
  l := GetFileVersionInfoSize(PChar(dll), h);
  if l > 0 then begin
    GetMem(p, l);
    try
      if GetFileVersionInfo(PChar(dll), 0, l, p) and
        VerQueryValue(p, '\', Pointer(F), FL) then
        Result := Format('%d.%d.%d.%d',
           [HiWord(F.dwFileVersionMS),
            LoWord(F.dwFileVersionMS),
            HiWord(F.dwFileVersionLS),
            LoWord(F.dwFileVersionLS)]);
    finally
      FreeMem(P, l);
    end;
  end;
end;