K，真奇怪！！！

[xzm2000]

ICount := Integer(ExtractIcon(Handle, 'FileName', -1));
取得图标总数，编译通不过
ExtractIcon(Handle, 'FileName', 0)；
取得第一个图标handle，没问题

sdk帮助中明明有这样一句
Specifies the index of the icon to retrieve. If this value is 0, the function returns the handle of the first icon in the specified file. If this value is -1, the function returns the total number of icons in the specified file.

tmd就是编译通不过，什么原因？

[xzm2000]

up

[BS]

你也应把错误帖出来吧

[xzm2000]

错误：Constant expression violates subrange bounds

[BS]

i:=-1;
ICount := Integer(ExtractIcon(Handle, 'FileName', i));

[TechnoFantasy]

将ICount := Integer(ExtractIcon(Handle, 'FileName', -1)); 改为
ICount := ExtractIcon(Application.Handle, 'C:\WINNT\regedit.exe', UINT(-1));

[TechnoFantasy]

因为ExtractIcon在Delphi定义中定义为UInt，你使用-1当然通不过，另外ICount定义为HICON
比较好。