如何在Delphi中为TJumpList使用资源图标

完全可以在不导出外部图标的前提下实现需求，核心是利用Windows原生支持的res://资源路径协议，直接将嵌入EXE的资源路径传递给TJumpList，底层Shell Link组件会自动解析这个路径并加载资源中的图标，无需物理文件。

具体步骤 #

1. 确认图标已嵌入EXE资源
   确保你的图标已经通过RC文件或Delphi资源编辑器嵌入到EXE中，比如RC文件定义：

   IDI_JUMP_ICON ICON "jump_icon.ico"
   

   或者在Delphi IDE的「资源管理器」中添加图标资源，记录好资源ID（比如IDI_JUMP_ICON）和资源类型（默认添加的图标属于RT_GROUP_ICON，对应数值14）。

2. 构造res://格式的资源路径
   格式规则：res://[EXE路径]/[资源类型数值或名称]/[资源ID]
   针对当前应用，可以直接用Application.ExeName作为EXE路径，示例代码：

   var
     ResIconPath: string;
   begin
     // 用RT_GROUP_ICON的数值14，资源ID为IDI_JUMP_ICON
     ResIconPath := Format('res://%s/%d/%d', [Application.ExeName, RT_GROUP_ICON, IDI_JUMP_ICON]);
   end;
   

   如果是字符串类型的资源ID（而非数字），可以直接替换最后一个参数为字符串，比如res://%s/ICON/MyJumpIcon。

3. 直接传递给TJumpList组件
   将构造好的ResIconPath直接赋值给TJumpList项的IconFileName属性即可，示例完整代码：

   procedure TMainForm.FormCreate(Sender: TObject);
   var
     JumpList: TJumpList;
     CustomItem: TJumpListCustomItem;
     ResIconPath: string;
   begin
     JumpList := TJumpList.Create(nil);
     try
       // 构造资源路径
       ResIconPath := Format('res://%s/%d/%d', [Application.ExeName, RT_GROUP_ICON, IDI_JUMP_ICON]);
       
       // 添加自定义JumpList项
       CustomItem := JumpList.CustomItems.Add;
       CustomItem.Caption := '打开功能A';
       CustomItem.Command := Application.ExeName + ' /funcA';
       CustomItem.IconFileName := ResIconPath;
       CustomItem.IconIndex := 0; // 组图标中的第一个图标索引，通常为0
       
       // 应用JumpList设置
       JumpList.Apply;
     finally
       JumpList.Free;
     end;
   end;
   

注意事项 #

• 若TJumpList的封装对res://路径兼容性有问题（极少情况），可以直接调用Windows原生JumpList API（ICustomDestinationList、IShellLinkW），通过IShellLink::SetIconLocation方法传入res://路径，实现完全自定义的JumpList项。
• 确保资源类型和ID与实际嵌入的资源完全匹配，否则会加载失败显示默认图标。

内容的提问来源于stack exchange，提问作者Delphify