提取ｅｘｅ　ｄｌｌ文件的图标？ ( 积分: 50 )

C

ccdarkness

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #1

提取ｅｘｅ　ｄｌｌ文件的图标？
有实例最好！

 

C

ccdarkness

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #2

提取ｅｘｅ　ｄｌｌ文件的图标？
有实例最好！

 

M

moshengren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #3

请参见API
ExtractIcon and ExtractIconEx

 

S

sephil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #4

楼上正解

 

C

ccdarkness

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-07

• #5

详细些行吗？
有实例吗？

 

J

jfyes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-07

• #6

delphi6 的demo
E:/program files/Borland/Delphi6/Demos/ResXplor/

 

S

sim_might

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-07

• #7

同意楼上,但关键是注意提取到ImageList中的图标和图标的索引.

 

W

wzwcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-07

• #8

procedure TMainFrm.Button1Click(Sender: TObject);
var
FileName: AnsiString;
begin
if OpenDialog1.Execute then
begin
FileName := opendialog1.FileName;
Image1.Picture.Icon.Handle :=ExtractIcon(Hinstance, pchar(FileName), 0);
end;
end;

 

C

ccdarkness

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-07

• #9

感谢大家！问题已经解决！
每人给点分！呵呵！
我是初学
wzwcn给的代码是我最想要的！