注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

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

2012-11-11 23:07:04|  分类: delphi xe2 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
       本实例实现的功能是能够从用户选择的可执行文件(后缀名为exe)中提取所有图标并且显示在窗体上。
  在窗体中添加TImage 组件、TOpenDialog组件和TButton组件,TImage组件充当显示文件内图标的容器,TOpenDialog组件和TButton组件用来激活提示用户选择GIF动画的对话框。添加组件后的窗体如图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.
  评论这张
 
阅读(111)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017