windows - EXEVersionInfoを設定します

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.