您的位置: 首页 > 软件教程 > Delphi教程专题 > Delphi实现提取可执行文件内部所有图标

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

9.0分
出处:网络 时间:2011-08-05

您可能感兴趣的话题: Delphi  

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

olive Magazine(美食杂志)

软件大小:42.3MB版本:5.4.1

下载:www.duote.com/ios/3326.html

立即下载

  本实例实现的功能是能够从用户选择的可执行文件(后缀名为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 程序运行结果

网友评论
精品软件课程
更多 >
C++是一种静态数据类型检查的,支持多重编程... [详细]
Java,是由Sun Microsystem... [详细]
C语言是一种面向过程的计算机程序设计语言。多... [详细]
Visual Basic是一种由微软公司开发... [详细]
Oracle Database,又名Orac... [详细]
Visual Basic.NET是从 Vis... [详细]