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

Question

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

Answer 1

TSHFileInfo FileInfo;
    if (SHGetFileInfo(asFileName.c_str(),
                      0,
    &FileInfo,
    sizeof(FileInfo),
    SHGFI_ICON | SHGFI_SYSICONINDEX | SHGFI_TYPENAME))
    return FileInfo.iIcon;用API函数啊,代码见上,呵呵,我昨天才学的

Answer 2

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;