软件开发培训班 >> 编程开发 >> Delphi


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

　begin

　　self.Image1.Canvas.Refresh;

　　nIcons:=ExtractIconEx(PChar(OpenDialog1.FileName), -1, Large, Small, 1);

　　for i:=0 to nIcons-1 do

　　begin

　　　ExtractIconEx(PChar(self.OpenDialog1.FileName), i, Large, Small, 1);

　　　DrawIcon(self.Image1.Canvas.Handle,(i div 4)*40,(i mod 4)*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组件上绘制图标 。

　　程序代码如下：

unit Unit1;

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;

　procedure btnOpenClick(Sender: TObject);

private

　{ Private declarations }

public

　{ Public declarations }

end;

var

　frmMain: TfrmMain;

　implementation

　{$R *.dfm}

　procedure TfrmMain.btnOpenClick(Sender: TObject);

　var

　　i: Integer;

　　Large, Small: HICON;

　　nIcons: Integer;

　begin

　　if OpenDialog1.Execute then

　begin

　　self.Image1.Canvas.Refresh;

　　nIcons:=ExtractIconEx(PChar(OpenDialog1.FileName), -1, Large, Small, 1);

　　for i:=0 to nIcons-1 do

　　begin

　　　ExtractIconEx(PChar(self.OpenDialog1.FileName), i, Large, Small, 1);

　　　DrawIcon(self.Image1.Canvas.Handle,(i div 4)*40,(i mod 4)*40,Large);

　　end;

　end;

end;

end.

　　 保留文件， 而后按F9键运行程序，程序运行的初始画面如图2所示 。

　　单击“ 打开”按钮，弹出一个 揭示消费者 取舍可执行文件的对话框 。确认后，在窗体的TImge组件上显示所 取舍的可执行文件中存储的图标，如图3所示 。

图2 程序运行的初始画面

图3 程序运行 后果