设置EXE版本信息

Question

关于我通过VerQueryValue收到的版本Exe-file的信息。是否有可以注册（建立或更改）这些信息的反函数（WinApi或Delphi）？这里，例如，有一个能够这样做的程序。它可能如何工作（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.