怎样提取EXE文件的大图标，注意，是大图标，高手请指教！

[Liusp]

[taxi]

以上是取一个图标显示在TImage中，下面是提取所有的图标显示在ListView中
首先，在窗体放一个ImageList,Width and Height = 32,放一个ListView,LargeIcon属性设为ImageList1,为了好看，再窗体底部放一个ProgressBar,align= alBottom
procedure TForm1.ExtractFileIcon(const FileName: string);
var
i, iCount: integer;
Icon: TIcon;
begin
i := -1;
iCount := ExtractIcon(Hinstance, Pchar(FileName), i);
ProgressBar.Max := iCount;
ListView1.Items.BeginUpdate;
ListView1.Items.Clear;
Icon := TIcon.Create;
for i := 0 to iCount -1 do
begin
Icon.Handle := ExtractIcon(Hinstance, Pchar(FileName), i);
ImageList.AddIcon(Icon);
with ListView1.Items.Add do
begin
Caption := ExtractFileName(FileName) + '[' + IntToStr(i + 1) + ']';
ImageIndex := Items.Count - 1;
end;
ProgressBAr.Position := i;
end;
ListView1.Items.EndUpdate;
ProgressBar.Position := 0;
end;

[taxi]

文件类型可以是exe,dll,icl

[kevin_gao]

大图标？怎么个大图标法？

好多提取图标的工具，难道不能满足？

[Kingron]

SHGetFileInfo()其中有一个大图标的的参数

[chenjiong]

是啊，提取图标的软件太多了。实在不行可以找个汉化的工具，可以把软件中的所有图片都导出。

[windlucky]

大家的方式，很好呀！不能解决！能不能说的详细点？

[Liusp]

我自己回答吧，用API函数
ExtractIconEx（
LPCSTR lpszFile,
int nIconIndex,
HICON FAR * phiconLarge,
HICON FAR * phiconSmall,
UINT nIcons
);

[Liusp]

用代码实现

[taxi]

procedure TForm1.ExtractFileIcon(const FileName: string);
var
i: integer;
begin
i := 0;
Image1.Picture.Icon.handle := ExtractIcon(Hinstance, Pchar(FileName), i);
end;