在Delphi中显示Windows图标
来源:互联网 发布:mac 管理员没有了 编辑:程序博客网 时间:2024/04/29 04:49
栏目刊登了一篇《提取图标的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;interfaceuses 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 orSHGFI_ICON or SHGFI_SYSICONINDEX); LargeImages:=TImageList.CreateSize(32,32); LargeImages.ShareImages:=True; LargeImages.Handle:=ShGetFileInfo('*.*',0,SHFileInfo, SizeOf(SHFileInfo),SHGFI_LARGEICON orSHGFI_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消息框中显示自定义图标
- delphi取得文件图标并在TListView中显示
- 在windows系统任务栏的托盘中显示图标 c++
- 在Windows Mobile 中最小化,显示图标再任务栏上
- 让MSN图标显示在Windows 7系统任务栏中
- delphi程序启动时不让其显示图标,也不在托盘中显示。
- 在菜单中显示图标
- 在QListView中显示图标
- 在Delphi中使用动态图标
- 在Delphi中使用动态图标
- 在Delphi中使用动态图标
- 在Delphi中使用动态图标
- 在Delphi中使用动态图标
- Windows XP中当最小化程序时,无法在任务栏显示图标的问题
- 修复Windows XP中当最小化程序时,无法在任务栏显示图标的问题
- Windows XP中当最小化程序时,无法在任务栏显示图标的问题
- C#Windows 窗体设计-实现欢迎界面-显示About窗体-在托盘中写入应用程序图标
- 刘慈欣访谈
- 在没有TEMPDB.DAT下恢复SQL6.5数据库,并使之运行
- 一生的故事
- 平行时空
- Google称对中国市占率满意 取悦用户胜过赚钱
- 在Delphi中显示Windows图标
- [转载]scanf()函数释疑[作者]------knocker
- shinfo
- Jive, 终于快把他的授权及通过代理对论坛的管理弄明白了
- 郁闷
- 在 C# 中创建 COM 对象 (把 C# 类公布到 COM )
- Pro Developer: Improving Your Career In Any Economy
- Here are some useful hints for reduce your C/C++ code dramatically
- 利用pre-compiled headers技术以加速编译速度(一)