delphi - 需要知道exe文件是否至少包含一个图标

Question

我需要知道一个exe文件是否至少包含一个图标。如果可能的话，一种快速的方法。我尝试使用 PrivateExtractIcons 并且它可以工作，但仅适用于 32 位 exe 文件。
它不适用于 64 位 exe 文件。
我需要它可以在任何 Windows >= XP(x86 和 x64)中处理任何 exe 文件。

我使用的是 Delphi 2009。

Answer 1

1. 调用 LoadLibraryEx传递 LOAD_LIBRARY_AS_DATAFILE 或 LOAD_LIBRARY_AS_IMAGE_RESOURCE。
2. 调用 EnumResourceTypes检查模块是否有图标资源。

请注意，这并不详尽，因为某些应用程序(例如现代 Office)以自定义形式存储其图像资源，而不是图标资源。