⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 091303_05.htm

📁 对于学习很有帮助
💻 HTM
字号:
🔍 
<html>

<head>
<link REL="stylesheet" HREF="/style.css" TYPE="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>计算机世界日报:
在Delphi中显示Windows图标
</title>
<!--***********-->
</head>

<body bgcolor="#FFFFFF" >














<p><br>
<font color="#b904e8"><b><em><a href="class.htm">返回</a></em></b></font>
<center>
<font color="#0000c0"><h2>
在Delphi中显示Windows图标
</h2></font>
<h3>
华中师大计科系
<br>江立
</h3>
</center>
<p><font color="#ffffff">----</font>
[摘要]：贵报6月14日的《编程技巧》栏目刊登了一篇《提取图标的Delphi控件》的文章，所介绍的方法可以用于提取包含在文件中的图标，但对于本身没有包含图标的文件却无法像Windows的“资源管理器”那样显示出其默认的图标。本文介绍了在Delphi的ListView组件中显示这种图标的方法，和《提取图标的Delphi控件》一文结合起来就可以显示出几乎所有的图标了。该方法的一大特色是不用绘制任何图标就能够显示许多Windows图标。
<p><font color="#ffffff">----</font>
    大量的图标显示是Windows中的一大特色，丰富多彩的图标
不仅美化了Windows的桌面，而且便于直观的操作，给用户带来
了极大的方便。可以说在某种程度上，图标的地位已经超过了文
件名的作用。
<p><font color="#ffffff">----</font>
    但是，当我们用可视化编程工具进行Windows编程时，却很
少有方便的方法来加载和显示图标。一般来说，在我们的应用程
序中使用到图标资源时都是我们自己亲自绘制出来的。因此，在
我们编的程序中使用到的图标是很有限的。我们知道Windows中
有大量已知的系统图标，如文件夹的图标、磁盘驱动器的图标等
等。熟悉Windows编程的朋友也许知道这些图标在Windows内部是
有其特定的编号的，只要获取了这些编号就能够调用并显示对应
的图标了。通过比较，我选择了Delphi中的ListView组件来显示
图标，因为这种方法是最简单的。
<p><font color="#ffffff">----</font>
    下面是一个例子，该程序在Delphi 4.0中编译通过。
<p><font color="#ffffff">----</font>
    该演示程序可以显示各类Windows系统图标，包括文件图标、磁盘图标、文件夹图标、用户特定可执行文件图标（如：Delphi的火炬图标等等）。有趣的是，我们显示的这些图标没有一个需要我们自己亲自动手绘制。
<p><font color="#ffffff">----</font>
    请先在Delphi环境下建立一个窗体Form1，并在Form1中添加
一个按钮Button1和一个列表框ListView1；然后请设置ListView1的属性ViewStyle为vsIcon。
<p><font color="#ffffff">----</font>
源程序清单：
<pre>
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, 
Classes, Graphics, Controls,
  Forms, Dialogs, ComCtrls, 
StdCtrls, ShellAPI, ExtCtrls,
  ImgList;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  Test='C:\';
  { Test为测试数据，在本例中返回的是一个驱动器图标。读者
    可以自行选择其他测试数据如：Test:='C:\Autoexec.bat'
    等等。}

var
  Form1: TForm1;
  ShFileInfo: TSHFILEINFO;

implementation

{$R *.DFM}
function GetFileIconIndex
(FileName:string):integer;
  { 获取图标的序号函数 }
var
  Ext:String;
begin
  Ext:=FileName;
  Result:=ShGetFileInfo(Pchar
(Ext), 0, SHFileInfo,
          SizeOf(SHFileInfo), SHGFI_LARGEICON or
         SHGFI_SYSICONINDEX or SHGFI_TYPENAME);
  Result:=SHFileInfo.iIcon; 
  { 返回获取的图标序号 }
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with ListView1 do
    begin
      SmallImages:=TImageList.CreateSize(32,32);
      SmallImages.ShareImages:=True;
      SmallImages.Handle:=ShGetFileInfo('*.*',0,
SHFileInfo, SizeOf(SHFileInfo),
SHGFI_LARGEICON or
SHGFI_ICON or SHGFI_SYSICONINDEX);
      LargeImages:=TImageList.CreateSize(32,32);
      LargeImages.ShareImages:=True;
      LargeImages.Handle:=ShGetFileInfo('*.*',0,
SHFileInfo, SizeOf(SHFileInfo),
SHGFI_LARGEICON or
SHGFI_ICON or SHGFI_SYSICONINDEX);
    end;
{ 分配系统资源给ListView1组件以显示图标 }
end;

procedure TForm1.FormDestroy
(Sender: TObject);
begin
  ListView1.SmallImages.Free;
  ListView1.LargeImages.Free;
  { 释放ListView1占用的系统资源 }
end;

procedure TForm1.Button1Click
(Sender: TObject);
begin
  ListView1.Items.Item[0].
ImageIndex:=GetFileIconIndex(Test);
  { 为ListView1中的第一个项目绘制图标 }
end;

end.

</pre>



 



<p align="right"><small><em>中国计算机世界出版服务公司版权所有</em></small> 
<br>
</p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -