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



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入门教程。b2b软件 广告发布软件