一个有关抽取图标的问题!(莫非ExtractAssociatedIcon()有问题???)(30分)

为什么使用

var
Icon:HIcon;
IconIndex:word;
begin
IconIndex:=1;
Icon:=ExtractAssociatedIcon(HInstance,PChar(Application.ExeName),IconIndex);
image1.Picture.Icon.Handle:=Icon;
end;

可以显示出自己程序的图标,而使用

var
Icon:HIcon;
IconIndex:word;
begin
IconIndex:=1;
Icon:=ExtractAssociatedIcon(HInstance,PChar('d:/temp/bbb/Project1.exe'),IconIndex);
image1.Picture.Icon.Handle:=Icon;
end;

却不行呢.设断点后发现 Icon 值为零,且路径绝对正确!

书上说把 IconIndex 值设为-1可返回图标总数,可一运行就提示 IconIndex 越界!
为什么这个函数这么奇怪呢???[?][?][?][][][8D][?][?][?][^][?]