本实例实现的功能是能够从用户选择的可执行文件(后缀名为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 程序运行结果 |
相关攻略
近期热点
最新攻略
