Delphi实现提取可执行文件内部所有图标

时间：2007-06-15 来源： 作者： 【字体：

减小

增大】 点击： 收藏 | 投稿

本实例实现的功能是能够从用户选择的可执行文件(后缀名为exe)中提取所有图标并且显示在窗体上。

　　在窗体中添加TImage组件、TOpenDialog组件和TButton组件，TImage组件充当显示文件内图标的容器，TOpenDialog组件和TButton组件用来激活提示用户选择GIF动画的对话框。添加组件后的窗体如图1所示。

图1添加组件后的窗体

　　首先在窗体的uses段中添加ShellAPI，然后添加按钮响应代码如下：

procedureTfrmMain.btnOpenClick(Sender:TObject);
var
　i:Integer;
　Large,Small:HICON;
　nIcons:Integer;
begin
　ifOpenDialog1.Executethen 财管家,园,fs119.net
　begin
　　self.Image1.Canvas.Refresh;
　　nIcons:=ExtractIconEx(PChar(OpenDialog1.FileName),-1,Large,Small,1);
　　fori:=0tonIcons-1do
　　begin
　　　ExtractIconEx(PChar(self.OpenDialog1.FileName),i,Large,Small,1);
　　　DrawIcon(self.Image1.Canvas.Handle,(idiv4)*40,(imod4)*40,Large);
　　end;
　end;
end;
　　当用户在程序运行过程中选择一个可执行文件后，程序首先通过self.Image1.Canvas.Refresh语句清除TImage组件上的显示内容，然后通过将ExtractIconEx函数的第2个参数指定为-1来取得可执行文件中图标的数目。得到数目后，通过一个循环中的ExtractIconEx(PChar(self.OpenDialog1.FileName),i,Large,Small,1)语句把可执行文件中的大、小图标分别存储在Large和Small变量中。最后通过DrawIcon函数在TImage组件上绘制图标。

　　程序代码如下：

unitUnit1; 财软联盟 fs119.net
interface
uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,ShellAPI,Grids,ExtCtrls;

type
　TfrmMain=class(TForm)
　btnOpen:TButton;
　OpenDialog1:TOpenDialog;
　Image1:TImage;
　procedurebtnOpenClick(Sender:TObject);
private
　{Privatedeclarations}
public
　{Publicdeclarations}
end;
var
　frmMain:TfrmMain;
　implementation
　{$R*.dfm}

　procedureTfrmMain.btnOpenClick(Sender:TObject);
　var
　　i:Integer;
　　Large,Small:HICON;
　　nIcons:Integer;
　begin
　　ifOpenDialog1.Executethen
　begin
　　self.Image1.Canvas.Refresh;
　　nIcons:=ExtractIconEx(PChar(OpenDialog1.FileName),-1,Large,Small,1);
　　fori:=0tonIcons-1do
　　begin
　　　ExtractIconEx(PChar(self.OpenDialog1.FileName),i,Large,Small,1);
　　　DrawIcon(self.Image1.Canvas.Handle,(idiv4)*40,(imod4)*40,Large);
　　end;
　end;
end;

end. 财管家园 fs119.net
　　保存文件，然后按F9键运行程序，程序运行的初始画面如图2所示。

　　单击“打开”按钮，弹出一个提示用户选择可执行文件的对话框。确认后，在窗体的TImge组件上显示所选择的可执行文件中存储的图标，如图3所示。

图2程序运行的初始画面

图3程序运行结果

　　读者从这个实例中可以学到如何提取可执行文件内部的所有图标并应用到自己的程序中。

财.管家园.fs119.net

文章摘自网络,如有侵权,请与我们联系.

数据统计中！！