• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号
登陆 注册
描述文字

Delphi随便调用内部应用图标自学自成的方法

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

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 程序运行结果
　Delphi，是Windows平台下著名的快速应用程序开发工具(Rapid application Development，简称RAD)。它的前身，即是DOS时代盛行一时的“BorlandTurboPascal”，最早的版本由美国Borland（宝兰）公司于1995年开发。在这篇教程中，小编会向大家演示一下如何在delphi中编写并提取exe文件里面的ICO图标。
　　一、exe文件
　　在教程开始之前，小编首先先问大家一个问题，大家知道什么是exe文件吗？如果还不知道的话，那就赶快跟着小编一起来了解一下吧。在WINDOWS系统中的执行文件一般都是.EXE文件，在MS-DOS中，用以标识可执行文件的文件扩展名。用户在提示行中输入不带.exe扩展名的文件名后按Enter键就能运行可执行程序。
　　二、实现方法
　　相信有很多的程序员都会编写出属于自己的EXE应用程序，那么问题就来了？假如说我们没有一个非常漂亮的EXE图标,是否会感觉非常的遗憾呢？大家可以看到，现在有非常多的程序软件都会有自己非常漂亮的图标(源自于生活中的各种图形标识，是计算机应用图形化的重要组成部分。)，我们为啥不将其通通提取出来呢？那么在这篇教程中，小编就会教大家应该如何使用delphi进行编程提并提取EXE文件里面的图标。除此之外，我们还会将这一个图标文件保存成为ICO格式（Iconfile的缩写，是Windows的图标文件格式的一种）进行输出的。现在就让我们一起来学习一下吧，编程代码如下图： 
 
　　三、界面介绍
　　好了具体的编程代码小编就已经演示完毕了，相信大家都已经看到最终得出来的效果了吧，感觉看起来是不是比没有图标的应用程序好看多了？具体的界面效果图,如下图：
　　小编结语：
　　今天的编程语言，大致介绍如此，希望能助您在学习Delphi道路上一臂之力，能让你更稳更好更快的走在学习Delphi的路上。今天的编程教程就已经介绍完毕了，如果你还是与犹未尽，可以进入我们的官网课课家教育，了解更多的Delphi入门教程。 

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
用matlab的fft（快速傅里叶变换）将时域转换成频域的问题 - 代码公主 ...发布时间：2022-07-18
下一篇：
matlab学习：图像频域分析之傅里叶变换发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap