Set EXE Sürüm Bilgisi

Question

Aldığım Exe dosyasıyla ilgili bilgiler VerQueryValue aracılığıyla alın. Bu bilgileri kayıt edebilen (oluşturacak veya değiştirebilecek) bir ters fonksiyon var mı (WinApi veya Delphi)? Burada, örneğin, bunu yapabilen bir program var. Nasıl çalışır (http://www.angusj.com/resourcehacker)?

Answer 1

Sürüm bilgisi kaynaklar tarafından saklanır; Bu kaynağı düzenlemek için gerekenleri düzenlemek için. Burada mevcut bir dosya sürümü bilgisini klonlayabilen ve onu başka bir dosyaya ekleyebileceğim bir birim var. http://msdn.microsoft (

unit cloneinfo; 

interface 

uses Windows, SysUtils; 

type 
LANGANDCODEPAGE = record 
    wLanguage: Word; 
    wCodePage: Word; 
end; 

procedure clone(sFile,output:string); 

implementation 

procedure clone(sFile,output:string); 
var 
    dwHandle, cbTranslate: cardinal; 
    sizeVers: DWord; 
    lpData, langData: Pointer; 
    lpTranslate: ^LANGANDCODEPAGE; 
    hRes : THandle; 
begin 
sizeVers := GetFileVersionInfoSize(PChar(sFile), dwHandle); 
If sizeVers = 0 then 
exit; 
GetMem(lpData, sizeVers); 
try 
    ZeroMemory(lpData, sizeVers); 
    GetFileVersionInfo (PChar(sFile), 0, sizeVers, lpData); 
    If not VerQueryValue (lpData, '\VarFileInfo\Translation', langData, cbTranslate) then 
    exit; 
    hRes := BeginUpdateResource(pchar(output), FALSE); 
    //For i := 0 to (cbTranslate div sizeof(LANGANDCODEPAGE)) do 
    //begin 
    lpTranslate := Pointer(Integer(langData) + sizeof(LANGANDCODEPAGE)); 
    UpdateResource(hRes, RT_VERSION, MAKEINTRESOURCE(VS_VERSION_INFO), lpTranslate^.wLanguage,lpData, sizeVers); 
    //end; 
    EndUpdateResource(hRes, FALSE); 
finally 
    FreeMem(lpData); 
end; 
end; 


end.