|
大量的图标显示是Ｗｉｎｄｏｗｓ 的一大特色。丰富多彩的图标不仅美化了Ｗｉｎｄｏｗｓ 的桌面，而且便于直观操作，给用户带来了极大的方便。但是，当我们用可视化编程工具进行编程时，却很少有方便的办法加载和显示图标。
编程思路
Ｗｉｎｄｏｗｓ 中有大量已知的系统图标，如文件夹的图标、磁盘驱动器的图标等等。熟悉Ｗｉｎｄｏｗｓ 编程的朋友也许知道这些图标在Ｗｉｎｄｏｗｓ
内部都有其特定的编号，通过获取这些编号就能方便地调用并显示对应的图标。通过比较，我认为利用Ｄｅｌｐｈｉ 中的ＬｉｓｔＶｉｅｗ 组件显示图标的方法最简单。
下面是一个可以显示各类Ｗｉｎｄｏｗｓ系统图标，包括文件图标、磁盘图标、文件夹图标及用户特定可执行文件图标（如：Ｄｅｌｐｈｉ
的火炬图标等等）的例子，令人高兴的是，通过这种方法显示的图标无须我们亲手绘制。
在Ｄｅｌｐｈｉ 环境下建立一个窗体Ｆｏｒｍ１，并在Ｆｏｒｍ１中添加一个按钮Ｂｕｔ—ｔｏｎ１和一个列表框ＬｉｓｔＶｉｅｗ１；然后设置ＬｉｓｔＶｉｅｗ１的属性ＶｉｅｗＳｔｙｌｅ
为ｖｓＩｃｏｎ。
源程序清单ｕｎｉｔ Ｕｎｉｔ１；
ｉｎｔｅｒｆａｃｅ
ｕｓｅｓ Ｗｉｎｄｏｗｓ ，Ｍｅｓｓａｇｅｓ ，ＳｙｓＵｔｉｌｓ ，Ｃｌａｓｓｅｓ ，
Ｇｒａｐｈｉｃｓ ，Ｃｏｎｔｒｏｌｓ ，
Ｆｏｒｍｓ ，Ｄｉａｌｏｇｓ ，ＣｏｍＣｔｒｌｓ ，ＳｔｄＣｔｒｌｓ ，Ｓｈｅｌ—ｌＡＰＩ ，ＥｘｔＣｔｒｌｓ ，
ＩｍｇＬｉｓｔ ；
ｔｙｐｅ
ＴＦｏｒｍ１＝ｃｌａｓｓ（ＴＦｏｒｍ）
ＬｉｓｔＶｉｅｗ１：ＴＬｉｓｔＶｉｅｗ；
Ｂｕｔｔｏｎ１：ＴＢｕｔｔｏｎ ；
ｐｒｏｃｅｄｕｒｅ ＦｏｒｍＤｅｓｔｒｏｙ（Ｓｅｎｄｅｒ ：ＴＯｂ—
ｊｅｃｔ）；ｐｒｏｃｅｄｕｒｅ ＦｏｒｍＣｒｅａｔｅ（Ｓｅｎｄｅｒ ：ＴＯｂｊｅｃｔ）；
ｐｒｏｃｅｄｕｒｅ Ｂｕｔｔｏｎ１Ｃｌｉｃｋ（Ｓｅｎｄｅｒ ：ＴＯｂ—
ｊｅｃｔ）；
ｐｒｉｖａｔｅ ｛Ｐｒｉｖａｔｅ ｄｅｃｌａｒａｔｉｏｎｓ ｝
ｐｕｂｌｉｃ ｛Ｐｕｂｌｉｃ ｄｅｃｌａｒａｔｉｏｎｓ ｝
ｅｎｄ ；
ｃｏｎｓｔ
Ｔｅｓｔ ＝′Ｃ：＼′；
｛Ｔｅｓｔ 为测试数据，在本例中返回的是
一个驱动器图标。读者可以自行选择其
他测试数据如：Ｔｅｓｔ ：＝′Ｃ：＼Ａｕｔｏｅｘｅｃ ．ｂａｔ′
等等。｝
ｖａｒ Ｆｏｒｍ１：ＴＦｏｒｍ１；
ＳｈＦｉｌｅＩｎｆｏ ：ＴＳＨＦＩＬＥＩＮＦＯ；
ｉ ｍｐｌｅｍｅｎｔａｔｉｏｎ
｛＄Ｒ ＊．ＤＦＭ｝ｆｕｎｃｔｉｏｎ ＧｅｔＦｉｌｅＩｃｏｎＩｎｄｅｘ（ＦｉｌｅＮａｍｅ ：ｓｔｒｉｎｇ）：
ｉｎｔｅｇｅｒ ；
｛获取图标的序号函数｝
ｖａｒ Ｅｘｔ ：Ｓｔｒｉｎｇ ；
ｂｅｇｉｎ
Ｅｘｔ ：＝ＦｉｌｅＮａｍｅ ；
Ｒｅｓｕｌｔ ：＝ＳｈＧｅｔＦｉｌｅＩｎｆｏ（ＰＣｈａｒ（Ｅｘｔ），０，
ＳＨＦｉｌｅＩｎｆｏ ，
ＳｉｚｅＯｆ（ＳＨＦｉｌｅＩｎｆｏ），ＳＨＧＦＩ＿ＬＡＲＧＥＩＣＯＮ ｏｒ
ＳＨＧＦＩ＿ＳＹＳＩＣＯＮＩＮＤＥＸ ｏｒ ＳＨＧ—
ＦＩ＿ＴＹＰＥＮＡＭＥ）；
Ｒｅｓｕｌｔ ：＝ＳＨＦｉｌｅＩｎｆｏ ．ｉＩｃｏｎ ；
｛返回获取的图标序号｝
ｅｎｄ ；
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．ＦｏｒｍＣｒｅａｔｅ（Ｓｅｎｄｅｒ ：ＴＯｂ—
ｊｅｃｔ）；
ｂｅｇｉｎ
ｗｉｔｈ ＬｉｓｔＶｉｅｗ１ｄｏ
ｂｅｇｉｎ ＳｍａｌｌＩｍａｇｅｓ ：＝ＴＩｍａｇｅＬｉｓｔ ．ＣｒｅａｔｅＳｉｚｅ
（３２，３２）；ＳｍａｌｌＩｍａｇｅｓ ．ＳｈａｒｅＩｍａｇｅｓ ：＝Ｔｒｕｅ ；
ＳｍａｌｌＩｍａｇｅｓ ．Ｈａｎｄｌｅ ：＝ＳｈＧｅｔＦｉｌｅＩｎｆｏ（′＊
．＊′，０，ＳＨＦｉｌｅＩｎｆｏ ，ＳｉｚｅＯｆ（ＳＨＦｉｌｅＩｎｆｏ），
ＳＨＧＦＩ＿ＬＡＲＧＥＩＣＯＮ ｏｒ ＳＨＧＦＩ＿ＩＣＯＮ ｏｒ ＳＨＧ—
ＦＩ＿ＳＹＳＩＣＯＮＩＮＤＥＸ）；
ＬａｒｇｅＩｍａｇｅｓ ：＝ＴＩｍａｇｅ—
Ｌｉｓｔ ．ＣｒｅａｔｅＳｉｚｅ（３２，３２）；
ＬａｒｇｅＩｍａｇｅｓ ．ＳｈａｒｅＩｍａｇｅｓ ：＝Ｔｒｕｅ ；
ＬａｒｇｅＩｍａｇｅｓ ．Ｈａｎｄｌｅ ：＝ＳｈＧｅｔＦｉｌｅ—
Ｉｎｆｏ（′＊．＊′，０，
ＳＨＦｉｌｅＩｎｆｏ ，ＳｉｚｅＯｆ（ＳＨＦｉｌｅＩｎｆｏ），
ＳＨＧＦＩ＿ＬＡＲＧＥＩＣＯＮ ｏｒ
ＳＨＧＦＩ＿ＩＣＯＮｏｒＳＨＧ—
ＦＩ＿ＳＹＳＩＣＯＮＩＮＤＥＸ）；
ｅｎｄ ；
｛分配系统资源给ＬｉｓｔＶｉｅｗ１组件以显
示图标｝
ｅｎｄ ；
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．ＦｏｒｍＤｅｓｔｒｏｙ（Ｓｅｎｄｅｒ ：ＴＯ—
ｂｊｅｃｔ）；
ｂｅｇｉｎ
ＬｉｓｔＶｉｅｗ１．ＳｍａｌｌＩｍａｇｅｓ ．Ｆｒｅｅ ；
ＬｉｓｔＶｉｅｗ１．ＬａｒｇｅＩｍａｇｅｓ ．Ｆｒｅｅ ；
｛释放ＬｉｓｔＶｉｅｗ１占用的系统资源｝
ｅｎｄ ；
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．Ｂｕｔｔｏｎ１Ｃｌｉｃｋ（Ｓｅｎｄｅｒ ：
ＴＯｂｊｅｃｔ）；
ｂｅｇｉｎ
ＬｉｓｔＶｉｅｗ１．Ｉｔｅｍｓ ．Ｉｔｅｍ［０］．ＩｍａｇｅＩｎｄｅｘ：＝
ＧｅｔＦｉｌｅＩｃｏｎＩｎｄｅｘ（Ｔｅｓｔ）；
｛为ＬｉｓｔＶｉｅｗ１中的第一个项目绘制图
标｝
ｅｎｄ ；
（湖北华中师大计科系ｅｎｄ ．江立４３００７９）
|