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 程序运行结果
读者从这个实例中可以学到如何提取可执行文件内部的所有图标并应用到自己的程序中。
最新文章
- Fiddler进行模拟Post提交数据,总为null解决方式
- android之数据存储之SQLite
- noip模拟赛(一)魔法树
- openjudge ROADS
- tomcat安全配置之禁用Directory Listing
- GET POST方法长度限制
- 一个Java对象到底占多大内存?(转)
- 微信小程序学习总结(1)
- python黑魔法之metaclass
- bzoj4818 [Sdoi2017]序列计数
- [原创]安全系列之端口敲门服务(Port Knocking for Ubuntu 14.04 Server)
- [TJOI 2016&;HEOI 2016]求和
- android开发中使用到的一些设计者模式
- 利用Bootstrap Paginator插件和KnockoutJS完成分页功能
- HTTP各个status code是什么意思【已解决】
- (转)CentOS7中防火墙的基本操作
- Markdown介绍
- Freemarker 页面静态化技术使用入门案例
- JQuery基本过滤器
- java压缩图片质量