在Delphi中显示Windows图标
2015-03-01 21:53
106 查看
[b]栏目刊登了一篇《提取图标的Delphi控件》的文章,所介绍的方法可以用于提取包含在文件中的图标,但对于本身没有包含图标的文件却无法像Windows的“资源管理器”那样显示出其默认的图标。本文介绍了在Delphi的ListView组件中显示这种图标的方法,和《提取图标的Delphi控件》一文结合起来就可以显示出几乎所有的图标了。该方法的一大特色是不用绘制任何图标就能够显示许多Windows图标。[/b]
原文来自: 【100脚本网 www.pc100.net】
[b]---- 大量的图标显示是Windows中的一大特色,丰富多彩的图标 不仅美化了Windows的桌面,而且便于直观的操作,给用户带来 了极大的方便。可以说在某种程度上,图标的地位已经超过了文 件名的作用。[/b]
---- 但是,当我们用可视化编程工具进行Windows编程时,却很 少有方便的方法来加载和显示图标。一般来说,在我们的应用程 序中使用到图标资源时都是我们自己亲自绘制出来的。因此,在 我们编的程序中使用到的图标是很有限的。我们知道Windows中 有大量已知的系统图标,如文件夹的图标、磁盘驱动器的图标等 等。熟悉Windows编程的朋友也许知道这些图标在Windows内部是 有其特定的编号的,只要获取了这些编号就能够调用并显示对应 的图标了。通过比较,我选择了Delphi中的ListView组件来显示 图标,因为这种方法是最简单的。
---- 下面是一个例子,该程序在Delphi 4.0中编译通过。
---- 该演示程序可以显示各类Windows系统图标,包括文件图标、磁盘图标、文件夹图标、用户特定可执行文件图标(如:Delphi的火炬图标等等)。有趣的是,我们显示的这些图标没有一个需要我们自己亲自动手绘制。
---- 请先在Delphi环境下建立一个窗体Form1,并在Form1中添加 一个按钮Button1和一个列表框ListView1;然后请设置ListView1的属性ViewStyle为vsIcon。
---- 源程序清单:
http://www.zhihu.com/question/23952865
http://www.zhihu.com/question/22481342
http://www.iqiyi.com/u/1110574148
http://wenku.baidu.com/view/d159f2455a8102d276a22fb0
http://www.docin.com/p1-1076470440.html
http://f.dataguru.cn/thread-482973-1-1.html
http://www.yangtai.com/bbs/321319
http://www.sharejs.com/codes/javascript/9063
http://www.sharejs.com/codes/php/9062 http://www.360doc.com/myfiles.aspx?app=1&type=3 http://blog.chinaunix.net/uid/30148519.html
原文来自: 【100脚本网 www.pc100.net】
[b]---- 大量的图标显示是Windows中的一大特色,丰富多彩的图标 不仅美化了Windows的桌面,而且便于直观的操作,给用户带来 了极大的方便。可以说在某种程度上,图标的地位已经超过了文 件名的作用。[/b]
---- 但是,当我们用可视化编程工具进行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.
http://www.zhihu.com/question/23952865
http://www.zhihu.com/question/22481342
http://www.iqiyi.com/u/1110574148
http://wenku.baidu.com/view/d159f2455a8102d276a22fb0
http://www.docin.com/p1-1076470440.html
http://f.dataguru.cn/thread-482973-1-1.html
http://www.yangtai.com/bbs/321319
http://www.sharejs.com/codes/javascript/9063
http://www.sharejs.com/codes/php/9062 http://www.360doc.com/myfiles.aspx?app=1&type=3 http://blog.chinaunix.net/uid/30148519.html
相关文章推荐
- 在Delphi中显示Windows图标
- delphi程序启动时不让其显示图标,也不在托盘中显示。
- 在delphi消息框中显示自定义图标
- Windows 7下桌面IE图标显示与修复的完美解决方法
- 如何解决Windows 8在桌面上总是显示大小写锁定和数字锁定图标的问题
- [Delphi]显示、隐藏桌面图标
- Delphi对Windows通知栏图标编程示例
- windows 7 下 TortoiseSVN TortoiseCVS 图标无法正常显示
- Delphi DBGRID中 根据不同的字段值显示不同的小图标
- SVN图标无法显示解决办法 Windows 7 中无法显示
- #100309#如何恢复windows的显示桌面图标
- windows 7桌面显示IE图标的官方方法
- 解决windows 7 部分程序图标显示不正常的问题
- Windows 7桌面显示图标窗口类名称
- Delphi 实现任务栏多窗口图标显示
- Delphi 编写定制显示叠加图标的Shell扩展
- windows 7图标无法显示问题
- 在VS里创建Windows窗体,让其最小化在系统托盘,并显示一个Icon图标
- Windows 右下角 输入法 图标 不见了 显示输入法 图标 绝对成功
- windows 8 下 TortoiseSVN 图标无法正常显示