Question

delphi7中使用API函数ExtractIcon 得到的图标个数总是为1，怎么回事，求解决。

ExtractIcon(HInstance, PChar('D:\ergrt.ico'), HICON(-1));ShowMessage(inttostr(ExtractIcon(HInstance, PChar('D:\ergrt.ico'), HICON(-1))));就这个图标资源文件路径换成什么都是得1

Answer 1

ExtractIcon 可以从 exe、dll 或者 ico 文件中获取到指定索引或者 ID 号的图标句柄。该函数只能获取标准的 32×32 像素图标，不能获取其他尺寸。(大多数图标都只有一个32X32的图标)
LoadImage 可以从 exe、dll、ico、bmp 和 cur 文件载入图标、光标或位图，可指定尺寸以及其他的很多条件。
SHGetFileInfo 是功能最强大的一个函数，根据其参数 uFlags 的不同可获取磁盘、任何文件或任何文件夹（还可指定文件属性）或路径的 ITEMIDLIST 在常规、选中或展开状态下大尺寸（32×32）或者小尺寸（16×16）图像列表的索引（index）并返回图像列表的句柄（HIMAGELIST），可以获取磁盘、文件或文件夹的图标句柄、显示名称、描述、类型等。

参考:http://zhidao.baidu.com/question/419375015.html

Answer 2

可能你的资源文件中只有一个图标.