我用Indy中的FTP 和 ShellListView 如何获得文件或是目录的图标??

[mmc0531]

请高手赐教：我用Indy中的FTP　和 ShellListView　如何获得文件或是目录的图标??

[wenxj]

什么意思？

[mmc0531]

就像资源管理器的结果，可以看到文件或文件夹的图标

[bbonline]

TSHFileInfo FileInfo;
if (SHGetFileInfo(asFileName.c_str(),
0,
&FileInfo,
sizeof(FileInfo),
SHGFI_ICON | SHGFI_SYSICONINDEX | SHGFI_TYPENAME))
return FileInfo.iIcon;

用API函数啊,代码见上,呵呵,我昨天才学的

[bbonline]

Delphi代码:
function GetFileIconIndex(FileName:string):integer;
var Ext:String;
FileInfo:TSHFileInfo;
begin
Ext := FileName;
Result := SHGetFileInfo(Pchar(Ext), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME);
Result := FileInfo.iIcon;
end;