Version du fichier DLL

Question

J'ai une application qui utilise une DLL pour générer des fichiers fastReports.

Lorsque j'ai besoin d'apporter des modifications à la structure de données des rapports, je modifie uniquement cette DLL et la distribue à tous les utilisateurs de l'application. Comment puis-je garantir que tous ont la dernière version avant de commencer?

Comment puis-je générer/extraire cette information à partir du fichier DLL.

Answer 1

Cette fonction aura la fileversion sous forme de chaîne:

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

Utilisez SysUtils.GetFileVersion()

Obtenir la version du fichier nécessite la mise en version du fichier à l'avance.

Answer 3

JCL ont JclFileVersion. Deux ou trois lignes et vous avez terminé.

Answer 4

Obtenir la version dll:

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