Question

我想将版本信息（针对特定语言）添加到另一个没有此类信息的exes（根本）。

我尝试使用BeginUpdateResource / UpdateResource / EndUpdateResource，但我成功的是创建“版本＆gt;＆gt; 1＆gt;＆gt;未知字符串”，而不是“版本＆gt;＆gt; 1＆gt;＆gt; CompanyName / VersionNumber / Description ......“和他们的价值观。

我在谷歌和这里搜索过但我找不到有用的东西。只有不完整的代码，我不知道如何完成。

谢谢。

修改

以下是我现在使用的代码：

procedure SetExeInfo(const ExeName, ResName, ResValue: string);
var
   ResourceHandle: THandle;
   DataLength: DWord;
   Data: array of Char;
   Ok: Boolean;
   i: Integer;

begin
   ResourceHandle := BeginUpdateResource(pChar(ExeName), False);
   if (ResourceHandle <> 0) then
   begin
      DataLength := 8;
      SetLength(Data, 8);
      for i := 0 to 7 do
         Data[i] := 'z';
      Ok := True;
      if (not UpdateResource(ResourceHandle, RT_VERSION, pChar(#49#0), LANG_SYSTEM_DEFAULT {MakeLangID(LANG_NEUTRAL, SUBLANG_NEUTRAL)}, Data, DataLength)) then
         Ok := False;

      if (not EndUpdateResource(ResourceHandle, False)) then
         Ok := False;

      if (Ok) then
         ShowMessage('Update of resources successful!')
      else
         ShowMessage('Update of resources failed!');

   end;
end;

上次修改

我没有在我的问题中指出我不能从另一个exe转移信息，因为我没有看到这样做的意思，因为我没有具体说明我从另一个exe获取版本信息。看起来我错了，抱歉。

Answer 1

以下是一些添加或替换版本号的工作代码：

type
 VERSIONHEADER = packed record
   wLength: word;
   wValueLength: word;
   wType: word;
   Key: array[0..16] of WideChar;   // 'VS_VERSION_INFO'
   Version: VS_FIXEDFILEINFO;
 end;

  (...)
  var ToolPath: TFileName;    // = exe containing a reference version resource
      ExeFullPath: TFileName; // = destination exe
      Maj, Min: cardinal; // expected UPDATED Version number
      VersionHandle, VersionRes: THandle;
      VersionSize: DWORD;
      Version: array of AnsiChar;
      Ver: ^VERSIONHEADER;
  (...)
  VersionSize := GetFileVersionInfoSize(pointer(ToolPath),VersionHandle);
  if (VersionSize<>0) and (Maj<>0) then
  begin
    SetLength(Version,VersionSize);
    Ver := pointer(Version);
    GetFileVersionInfo(pointer(ToolPath),0,VersionSize,Ver);
    if Ver^.Version.dwSignature=$feef04bd then
    begin
      Ver^.Version.dwFileVersionMS := MAKELONG(Min,Maj);
      Ver^.Version.dwProductVersionMS := Ver^.Version.dwFileVersionMS;
      VersionRes := BeginUpdateResource(Pointer(ExeFullPath),False);
      UpdateResource(VersionRes,RT_VERSION,MAKEINTRESOURCE(VS_VERSION_INFO),
        1033,Ver,VersionSize);
      EndUpdateResource(VersionRes,false);
    end;
  end;

它将添加或更新现有可执行文件（ExeFullPath）的数字版本号，将其替换为提供的可执行资源（ToolPath - 可能paramstr(0)复制一些现有的可执行文件版本信息，甚至ExeFullPath更新版本号）。

Answer 2

RT_VERSION资源不仅仅是八个字节。它是VERSIONINFO，具有固定大小和可变字符串。有关详细信息，请参阅VERSIONINFO resource - MSDN。

CodeProject为您提供了一些示例代码：Updating version information at run-time。

如何在Delphi中将版本信息添加到另一个exe？

2 个答案: