请问如何从EXE或DLL中提取ICON？

[cultra]

[pwq]

請用Windows API吧 For Example:
procedure TForm1.Button1Click(Sender: TObject);
var
IconIndex : word;
h : hIcon;
begin
IconIndex := 0;
h :=
ExtractAssociatedIcon(hInstance,
'C:\WINDOWS\NOTEPAD.EXE',
IconINdex);
DrawIcon(Form1.Canvas.Handle,
10,
10,
h);
end;

[TechnoFantasy]

http://www.applevb.com/sourcecode/exticontree.zip
一个从可执行文件、DLL文件等中提取图标的程序，可以以树形列表的方式显示文件目录。以ListView的方式显示全部图标，自动保存到目录。

[Bene98]

取图标?只是取图标,还有其他的都可以取的(如图片等).
在delphi中有一个相当好的例子,你可以自已找一找,如果不知道,写mail给我:[e-mail]

[black_fox]

procedure TForm1.OpenFile(Filename:string);
var
a:LongWord;
count:integer;
b:ticon;

begin
//a:=ticon.Create ;
listview1.Items.Clear ;
self.ImageList1.Clear ;
count:=0;
a := ExtractIcon(self.Handle,pchar(FileName), count);
b:=ticon.Create ;

while a>0 do
begin

b.Handle:=a;
count:=count+1;
ImageList1.AddIcon(b);
listview1.Items.Add.ImageIndex:=imagelist1.Count-1 ;

a := ExtractIcon(self.Handle,pchar(FileName),count)
end;


end;

[cultra]

有没有什么具体的工具软件？

[chenjiong]

很多，到www.newhua.com的icon工具处，很多很多。

[black_fox]

我就有一个。。自已写的。你要的话。我发给你就是了。