使用ExtractIcon(hInstance,PChar(ModuleName),-1);获取图标个数出错！(50分)

M

myyzg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-07

• #1

在DELPHI6中，使用Total:=ExtractIcon(hInstance,PChar(ModuleName),-1);
获取图标个数，为何出错：
[Error] Unit1.pas(74): Constant expression violates subrange bounds

 

H

huazai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-07

• #2

写的详细点！

 

H

huazai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-07

• #3

看看：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=184832
http://www.delphibbs.com/delphibbs/dispq.asp?lid=137588
http://www.delphibbs.com/delphibbs/dispq.asp?LID=611562

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-07

• #4

请注意 ExtractIcon 的定义：
HICON ExtractIcon(
HINSTANCE hInst, // instance handle
LPCTSTR lpszExeFileName, // filename of file with icon
UINT nIconIndex // index of icon to extract
);
最后一个参数是 UINT 无符号整型，那当然不能传个负号过去，这样：
Total:=ExtractIcon(hInstance, PChar(ModuleName), DWord(-1));//强制类型转换
或：
Total:=ExtractIcon(hInstance, PChar(ModuleName), $FFFFFFFF);

 

D

duducat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-07

• #5

ExtractIcon(hInstance, PChar(ModuleName), DWord(-1))；
即可

 

P

PFans

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-07

• #6

试试 ExtractIcon(hInstance,'shell.dll',Cardinal(-1));

 

M

myyzg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-10

• #7

谢谢各位！