如何读取某种文件类型在WINDOWS里对应的图标并显示出来？(50分)

星

星期一

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-27

• #1

如何读取某种文件类型在WINDOWS里对应的图标并显示出来？

 

大

_大漠孤烟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-27

• #2

有很多种icon工具，很厉害的，可以搜索出硬盘所有的icon图标，包括exe和dll中嵌入的图标都可以自动找出来供你使用，去下载一个吧，如iconbook,icon cather都很不错！

 

星

星期一

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #3

我的意思是在一个LIST（或别的什么）里，显示出某个文件相关联的图标。

 

C

crystal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-03

• #4

来自:Hubdog大虾的葵花宝典:

function GetFileIcon(const Filename:String; SmallIcon:Boolean):HICON;
var info:TSHFILEINFO;
Flag: Integer;
begin
if SmallIcon then Flag:=(SHGFI_SMALLICON or SHGFI_ICON)
else Flag:=(SHGFI_LARGEICON or SHGFI_ICON);
SHGetFileInfo(Pchar(Filename),0,info,Sizeof(info),Flag);
Result:=info.hIcon;
end;

顺便说一句,Hubdog大虾的葵花宝典真的很好,在
http://202.115.32.32/new-wjl/soft/searchmore.php?selecttype=编程书籍
有下载

 

E

eric.youbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-03

• #5

delphi５的demos里面就有现成的例子！
　　．．．/Borland/Delphi5/Demos/Virtual Listview

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-03

• #6

呵呵,不用那么麻烦吧?
用ShellAPI单元中的FindExecutable和ExtractIcon函数就可以达到这种效果

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-15

• #7

多人接受答案了。