Dll file version

Question

I have an application that uses a DLL to generate fastReports files.

When I need to make changes to the report data structure, I only change this DLL and distribute it to all APP users. How can I guarantee that they all have the latest version before they are launched?

How can I generate / extract this information from a dll file.

Answer 1

This function will receive fileversion as a string:

function FileVersionGet( const sgFileName : string ) : string; var infoSize: DWORD; var verBuf: pointer; var verSize: UINT; var wnd: UINT; var FixedFileInfo : PVSFixedFileInfo; begin infoSize := GetFileVersioninfoSize(PChar(sgFileName), wnd); result := ''; if infoSize <> 0 then begin GetMem(verBuf, infoSize); try if GetFileVersionInfo(PChar(sgFileName), 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; 

Answer 2

Get Dll Version:

 function GetDllVersion: string; //Run in dll project var fn: string; begin fn := GetModuleName(HInstance); Result := FileVersionGet(fn); // use Matthias function end; 

Answer 3

Use SysUtils.GetFileVersion()

Getting the file version requires first installing the file version.

Answer 4

JCL has JclFileVersion. Two or three lines, and you're done.