EXEのバージョン情報を設定する

Question

VerQueryValueで受け取るバージョンのExeファイルの情報。このような情報を登録（設定または変更）できる逆関数（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.