DLL dosya sürümü

Question

FastReports dosyaları oluşturmak için bir DLL kullanan bir uygulama var.

Rapor veri yapısında değişiklik yapmam gerektiğinde, yalnızca bu DLL'yi değiştirir ve bunu tüm APP kullanıcısına dağıtırım. Başlamadan önce son sürümün hepsinin olduğunu nasıl garanti edebilirim?

Bu bilgiyi DLL dosyasından nasıl üretebilir/ayıklayabilirim.

Answer 1

Bu fonksiyon dizesi olarak DosyaSürümü alacak:

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

Kullanım SysUtils.GetFileVersion()

dosya sürümü alınıyor peşin dosya sürümü ayar gerektirir.

Answer 3

JCL JclFileVersion var. İki ya da üç çizgi ve sen bitti.

Answer 4

Dll sürümünü edinin:

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