Archivo DLL versión

Question

Tengo una aplicación que utiliza una DLL para generar archivos fastReports.

Cuando necesito hacer cambios en la estructura de datos de informes, solo cambio esta DLL y la distribuyo a todos los usuarios de la APLICACIÓN. ¿Cómo puedo garantizar que todos tengan la última versión antes de que comiencen?

Cómo puedo generar/extraer esta información del archivo DLL.

Answer 1

Esta función obtendrá el fileversion como cadena:

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

Uso SysUtils.GetFileVersion()

Obtener la versión del archivo requiere el establecimiento de versión de archivo con antelación.

Answer 3

JCL tienen JclFileVersion. Dos o tres líneas y listo.

Answer 4

Obtenga la versión DLL:

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