Delphi 如何实现提取可执行文件的图标

本实例实现的功能是能够从用户选择的可执行文件

(后缀名为 exe)中提取所有图标并

且显示在窗体上。

　　在窗体中添加

TImage 组件、TOpenDialog 组件和 TButton 组件，TImage 组件充

当显示文件内图标的容器，

TOpenDialog 组件和 TButton 组件用来激活提示用户

选择

GIF 动画的对话框。添加组件后的窗体如图 1 所示。

图

1 添加组件后的窗体

　　首先在窗体的

uses 段中添加

ShellAPI ， 然 后 添 加 按 钮

响应代码如下：

procedure TfrmMain.btnOpenClick(Sender: TObject);

var

　

i: Integer;

　

Large, Small: HICON;

　

nIcons: Integer;

begin

　

if OpenDialog1.Execute then