在delphi中显示windows图标 (2000年12月13日).txt

自己对DELPHI学习的一点体会

在Delphi中显示Windows图标 (2000年12月13日) 

本站更新  分类:   作者:江立   推荐:   阅读次数:489  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

华中师大计科系 
江立 
---- [摘要]：贵报6月14日的《编程技巧》栏目刊登了一篇《提取图标的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.