信息发布软件,b2b软件,广告发布软件

标题: Delphi随便调用内部应用图标自学自成的方法 [打印本页]

作者: 群发软件 时间: 2017-8-15 01:36
标题: Delphi随便调用内部应用图标自学自成的方法
本帖最后由群发软件于 2017-8-15 01:38 编辑

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;

　　当用户在程序运行过程中选择一个可执行文件后，程序首先通过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.

　　保存文件，然后按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入门教程。

作者: x201323 时间: 2017-8-18 05:08
模板是可以用的，功能也很丰富

作者: huanyili998 时间: 2017-8-18 15:52
改改字就可以了

作者: zdxhz 时间: 2017-8-18 16:26
生意的，说真心话，对于一个新手，我什么都不懂，慢慢去了解，所有的他们都负责了，后期自己的设计都有模版和教程还有视频，很详细的，不会的可以问技术员，人很好的。谢谢，我觉得你们比市场那些人更靠谱。

作者: 我爱苏苏 时间: 2017-8-19 15:16
信誉，值得好评！

作者: senbza 时间: 2017-8-19 15:39
心，有耐心，很满意。服务很到位。

作者: z2340868 时间: 2017-8-22 15:03
真正的物超所值！

作者: meili1 时间: 2017-8-23 19:47
，而且服务很好。值得信赖。

作者: 西充 时间: 2017-8-26 13:39
宝买的最超值的虚拟物品了吧。大赞。给077号客服一个好评，休假都还给我改需求。而且速度超快，刚说完的改动需求，不到5分钟就搞定了。顺便给我的网站打个广告，手赚咖shouzhuanka.com各种手机赚钱方式。

作者: dfgdgdfgdf 时间: 2017-8-27 11:55
在忙别的事情，搭建速度好快，对微信公众平台还不是很了解，需要后期再请教学习了。服务很好，感觉舒心。

作者: huangge 时间: 2017-8-29 21:22
不错，和卖家描述的一样，值得入手，好评

作者: anleeycn 时间: 2017-8-30 16:43
谢卖家。三两下就解决了问题

作者: huangge 时间: 2017-8-31 04:04
非常好的产品

作者: dfgdgdfgdf 时间: 2017-9-3 17:03
序员哥哥好有耐心！点赞！

作者: 我爱苏苏 时间: 2017-9-4 03:43
卖家，技术过硬，服务过好，就像巴黎欧莱雅，你值得拥有

作者: 都敏俊系 时间: 2017-9-4 04:05
，大爱，喜欢，是我想要的，不错，值得购买，

作者: yerface 时间: 2017-9-8 14:56
值得好评

作者: beiao 时间: 2017-9-9 11:58
合作了。

欢迎光临信息发布软件,b2b软件,广告发布软件 (http://www.postbbs.com/)