如何使用 Delphi 更改外部 EXE 文件的图标？

Question

我想使用 Delphi 更改以前生成的 EXE 文件的主图标。 EXE 文件也是我使用 Delphi 生成的。但我希望用户能够更改其图标。

我尝试使用 UpdateResource 函数更改 RT_GROUP_ICON 和 RT_ICON，但没有成功：

procedure UpdateExeIcon(Const IconFilename, ExternalExeFilename:string);
var
  Stream     : TFileStream;
  hDestRes   : THANDLE;
  lpData     : Pointer;
  cbData     : DWORD;
begin
  Stream := TFileStream.Create(IconFilename,fmOpenRead or fmShareDenyNone);
  try
    Stream.Seek(0, soFromBeginning);
    cbData:=Stream.Size;
    if cbData>0 then
    begin
      GetMem(lpData,cbData);
      try
        Stream.Read(lpData^, cbData);
        hDestRes:= BeginUpdateResource(PChar(ExternalExeFilename), False);
        if hDestRes <> 0 then
        begin
          //if UpdateResource(hDestRes, RT_ICON,PChar('1'),1033,lpData,cbData) then
          if UpdateResource(hDestRes, RT_GROUP_ICON,PChar('MAINICON'),1033,lpData,cbData) then
          begin
            if not EndUpdateResource(hDestRes,FALSE) then RaiseLastOSError;
          end else RaiseLastOSError;
        end else RaiseLastOSError;
      finally
        FreeMem(lpData);
      end;
    end;
  finally
    Stream.Free;
  end;
end;

Answer 1

有多个错误：

1. 在UpdateResource(hDestRes, RT_ICON,PChar('1'),1033,lpData,cbData) 中，lpName 参数以两种方式起作用：PChar('1') 将变成文本，而MakeIntResource(1) 将变成数字。您需要后一种变体，而不是前者。
2. 对于资源类型RT_ICON，您必须提供实际的图标有效负载，而不是整个图标文件。现在你做的是后者，而不是前者。看看图标文件的样子，然后看看资源只有什么。
3. 资源类型RT_GROUP_ICON 是“仅”一个描述现有RT_ICON 资源的索引，应根据更新后的图标进行修补（除非宽度、高度、颜色、像素深度和有效负载长度都相同）。在这里填写文件内容毫无意义。

您在上方看到Resource Hacker 显示我们要更新的资源的原始字节。 128 是十六进制字节的长度。

在上面你看到HxD 显示了一个完整的图标文件 - 我选择了第一个图标 payload 所在的部分：从偏移量26 开始，长度为128（均为十六进制）。两个字节序列匹配。

如果你做了所有这些（在RT_ICON 上使用MakeIntResource(1) 并且只提供图标文件的图片数据）那么你很好 - 它对我来说很好：我的 EXE 然后在 Windows 中显示了新图标Explorer（尚未执行）。更新RT_GROUP_ICON 也应该完成，因为我不确定它在哪里似乎没有效果，什么时候突然变成一个问题。在十六进制编辑器中查看您的文件并在资源编辑器中查看您的 EXE 将使您更好地理解所有操作。延伸阅读：

• Icon file format（很简单）
• RT_GROUP_ICON format（几乎与图标文件相同）