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

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

发表于：2007-06-11来源：作者：点击数：标签：

在窗体中添加TImage 组件、TOpenDialog组件和TButton组件，TImage组件充当显示文件内图标的容器，TOpenDialog组件和TButton组件用来激活提示用户选择GIF动画的对话框。添加组件后的窗体如图1所示。 java script:if(this.width>498)this.style.width=498;' on

在窗体中添加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：程序运行结果

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

（责任编辑火凤凰 sunsj@51cto.com TEL：（010）68476636-8007）

原文转自：http://www.ltesting.net

软件测试 > 测试开发技术 > 软件测试开发语言 > .net >