在Delphi中显示Windows图标

栏目刊登了一篇《提取图标的Delphi控件》的文章，所介绍的方法可以用于提取包含在文件中的图标，但对于本身没有包含图标的文件却无法像Windows的“资源管理器”那样显示出其默认的图标。本文介绍了在Delphi的ListView组件中显示这种图标的方法，和《提取图标的Delphi控件》一文结合起来就可以显示出几乎所有的图标了。该方法的一大特色是不用绘制任何图标就能够显示许多Windows图标。

---- 大量的图标显示是Windows中的一大特色，丰富多彩的图标不仅美化了Windows的桌面，而且便于直观的操作，给用户带来了极大的方便。可以说在某种程度上，图标的地位已经超过了文件名的作用。

---- 但是，当我们用可视化编程工具进行Windows编程时，却很少有方便的方法来加载和显示图标。一般来说，在我们的应用程序中使用到图标资源时都是我们自己亲自绘制出来的。因此，在我们编的程序中使用到的图标是很有限的。我们知道Windows中有大量已知的系统图标，如文件夹的图标、磁盘驱动器的图标等等。熟悉Windows编程的朋友也许知道这些图标在Windows内部是有其特定的编号的，只要获取了这些编号就能够调用并显示对应的图标了。通过比较，我选择了Delphi中的ListView组件来显示图标，因为这种方法是最简单的。

---- 下面是一个例子，该程序在Delphi 4.0中编译通过。

---- 该演示程序可以显示各类Windows系统图标，包括文件图标、磁盘图标、文件夹图标、用户特定可执行文件图标（如：Delphi的火炬图标等等）。有趣的是，我们显示的这些图标没有一个需要我们自己亲自动手绘制。

---- 请先在Delphi环境下建立一个窗体Form1，并在Form1中添加一个按钮Button1和一个列表框ListView1；然后请设置ListView1的属性ViewStyle为vsIcon。

---- 源程序清单：

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.

在Delphi中显示Windows图标相关推荐

Delphi：显示Windows图标
---- 大量的图标显示是Windows中的一大特色,丰富多彩的图标不仅美化了Windows的桌面,而且便于直观的操作,给用户带来了极大的方便.可以说在某种程度上,图标的地位已经超过了文件名的作用. ...
win7任务栏计算机怎么显示桌面图标,怎么在Win7任务栏中显示计算机图标
问题描述: 如何在Windows7系统任务栏中显示计算机图标 Windows 7系统默认关闭了快速启动栏,引入了新的功能"库",锁定到任务栏的计算机默认仍然打开"库&qu ...
任务栏上有计算机和网络图标,如何在Win7任务栏中显示计算机图标
问题描述: 如何在Windows7系统任务栏中显示计算机图标问题分析: Windows 7系统默认关闭了快速启动栏,引入了新的功能"库",锁定到任务栏的计算机默认仍然打开&quo ...
vue在列表和下拉框中显示icon图标
vue在列表和下拉框中显示icon图标一. 在项目中引入阿里云icon图标二. 在data中定义icon图标列表三. 在下拉框中显示icon图标四. 在列表中显示icon图标五. 在el-c ...
delphi语音_在Delphi中使用Windows文本语音转换
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basi ...
java web 中读取windows图标并显示
java web中读取windows对应文件名的系统图标 ....显示 1.获取系统图标工具类 package utils; import java.awt.Graphics; import j ...
php添加网站ico图标,phpcms在地址栏中显示网站图标的方法(增加网站ico图标)
本文关键详细介绍了phpcms在地址栏中显示信息网站图标的方式(提升网站ico图标),必须的盆友能够参照下 phpcms怎样在地址栏中显示信息网站的图标最先寻找网站的css文件,刚开始在里面改动. ...
android png图片背景黑色,Android中显示PNG图标背景变黑色
最近项目中遇到一个问题:就是从网络获取应用PNG图标后,显示到GridView中,发现图标透明的地方都变成了黑色?为什么呢? 个人习惯有问题先梳理一遍代码: 一.从网络异步下载图标并显示代码 clas ...
Delphi隐藏/显示Windows桌面上的图标
//隐藏桌面上的图标 procedure DesktopHideIcon; var h: THandle; begin h := FindWindow('Progman', nil); S ...

在Delphi中显示Windows图标

在Delphi中显示Windows图标相关推荐

最新文章

热门文章