EXE VersionInfo

Question

सेट करें संस्करण EXE-file संस्करण पर जानकारी VerQueryValue के माध्यम से प्राप्त होती है। क्या कोई व्यस्त कार्य (विनएपी या डेल्फी) है जो ऐसी जानकारी पंजीकृत (स्थापित या बदल सकता है)? यहां, उदाहरण के लिए, एक ऐसा प्रोग्राम है जो ऐसा करने में सक्षम है। यह कैसे काम कर सकता है (http://www.angusj.com/resourcehacker)?

Answer 1

संस्करण जानकारी संसाधनों के माध्यम से संग्रहीत की जाती है; यह संपादित करने के लिए कि आपको बस उस संसाधन को संपादित करने की आवश्यकता है। यहां एक इकाई है जो मैंने पाया है कि मौजूदा फ़ाइल संस्करण की जानकारी क्लोन कर सकते हैं और इसे किसी अन्य फ़ाइल से जोड़ सकते हैं।

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.