如何在Windows中获取任意文件的关联图标(.ICO)，并在Delphi中显示所有图标图像大小?

Question

如何在Windows中获取任意文件的关联图标(.ICO)，并在Delphi中显示所有图标图像大小?

3

我想要一个函数，它可以获取 Windows 中任何文件路径（任何文件系统对象——文件、文件夹、驱动器、快捷方式等）并返回与之对应的 .ICO 文件（或带有所有图像大小表示的图标句柄）。例如，如果我在 Windows 7 中指定 'C:\MyTextFile.txt'，我将获得 .txt 文件的所有 256x256、48x48、32x32 和 16x16 大小的 .ICO 文件，位置在 imageres.dll 的偏移量为 102:

imageres.dll 中的文本文件图标

^ Stardock IconPackager 安装的图标选项卡，可定位到文件系统对象的图标

从我的研究所得，这似乎并不容易。有 ExtractIconEx 函数，但它只能提供 16px 和 32px 的表示。还有这篇文章显示了如何获取一般为 16、32、48 和 256 像素的 SHIL_SMALL、SHIL_LARGE、SHIL_EXTRALARGE 和 SHIL_JUMBO 大小，但这并不一定涵盖存储在 .ICO 文件中的其他尺寸。例如，某些图标存储的不仅仅是四个尺寸，而是 10 多个不同尺寸。

所以我想：

找到文件系统对象图标的位置，并
从 DLL、EXE 或任何封装它的资源中检索它。

我猜一个问题是：这是 Windows 注册表的任务吗？如下面所示，注册表的 txtfile->DefaultIcon 值包含了 .txt 文件类型的图标位置。

Windows 注册表中的 txtfile

但是，也有一些独立的 .exe 文件，例如自包含一个不会存储在注册表中的图标。

最终，我希望能在 TImage 中显示所有不同大小，并且可能将它们一起输出到一个 .ICO 文件中。感谢任何帮助。

- spurgeon

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- teran · Accepted Answer

作为一种选择，有一个 IShellItemImageFactory 接口，提供关于 IShellItem（文件）缩略图的信息。该接口可以返回所需大小的缩略图，但需要使用透明度来实现一些魔法。有两个选项 - 缩略图或图标。对于 Folder，它始终返回相同的图像（更新：这不是真的，文件夹缩略图还包含其包含的小文件预览）。但例如对于 png，它会返回带有 thumbnail 标志的小预览图像和带有 icon 标志的 png 图片图标（0 是默认值）。对于您的任务，您应该使用 SIIGBF_ICONONLY 标志来获取文件/文件夹/驱动器系统图标。

以下是加载不同尺寸图像的示例代码。

type
    TIconSize = (is16, is32, is48, is64, is96, is128, is256);
const
    ICON_SIZE : array[TIconSize] of integer = (16,32,48,64,96,128,256);

我在表单上添加了 SizeRadioGroup : TRadioGroup 和 Image1 : TImage。 Image1.Size 设置为 256。点击 SizeRadioGroup 的事件处理程序会将缩略图加载到 Image1：

procedure TForm7.SizeRadioGroupClick(Sender: TObject);
const FILE_NAME = 'd:\_projects\';
var icoSize : TIconSize;
    wh : integer;
    siif : IShellItemImageFactory;
    size : TSize;
    icon_handle : HBitmap;
    bm : TBitmap;
begin
    icoSize := TIconSize(SizeRadioGroup.ItemIndex);
    wh := ICON_SIZE[icoSize];

    SHCreateItemFromParsingName(FILE_NAME, nil, IID_IShellItemImageFactory, siif);

    size.cx := wh;
    size.cy := wh;

    siif.GetImage(size, 0 {SIIGBF_THUMBNAILONLY}{SIIGBF_ICONONLY}, icon_handle);
    bm := TBitmap.Create();
    bm.PixelFormat := pf32bit;
    try
        bm.Handle := icon_handle;
        Image1.Picture.Assign(bm);
    finally
        bm.Free();
    end;
end;