SHGetFileInfo

 

SHGetFileInfo函数

WINSHELLAPI DWORD WINAPI SHGetFileInfo(
    LPCTSTR pszPath,
    DWORD dwFileAttributes,
    SHFILEINFO FAR *psfi,
    UINT cbFileInfo,
    UINT uFlags
);

 

// 获取系统图标

#if 1
 // 使用COM
 HRESULT hresut = CoInitialize(NULL);
 HIMAGELIST hSystemImageList;
 SHFILEINFO shfi;
 hSystemImageList = (HIMAGELIST)SHGetFileInfo((LPCTSTR)_T(""), 0, &shfi, 
   sizeof(SHFILEINFO), SHGFI_SYSICONINDEX | SHGFI_LARGEICON //SHGFI_SMALLICON
   |SHGFI_ICON);

 m_imageList.Attach(hSystemImageList);

// m_imageList.Add(AfxGetApp()->LoadIconW(IDI_ICON_PROGRAM));  //3
// m_imageList.Add(AfxGetApp()->LoadIconW(IDI_ICON_OTHER));  //4

 m_imageList.Add(AfxGetApp()->LoadIconW(IDI_ICON_FOLDERX));
#endif

// 根据类型获取图标

SHGetFileInfo可以按文件类型取图标，如：
     SHFILEINFO sfi;
     HIMAGELIST hil;
    
     ZeroMemory(&sfi,sizeof(sfi));
     hil = SHGetFileInfo(".zip",
     FILE_ATTRIBUTE_NORMAL,
     &sfi,
     sizeof(sfi),
     SHGFI_USEFILEATTRIBUTES | SHGFI_ICON);

 

 

 

 

 

 

pszPath 参数:指定的文件名。
当uFlags的取值中不包含 SHGFI_PIDL时,可直接指定;
当uFlags的取值中包含 SHGFI_PIDL时pszPath要通过计算获得,不能直接指定;

dwFileAttributes参数:文件属性。

仅当uFlags的取值中包含SHGFI_USEFILEATTRIBUTES时有效,一般不用此参数;
psfi 参数:返回获得的文件信息,是一个记录类型,有以下字段:
  _SHFILEINFOA = record
    hIcon: HICON;                      { out: icon }  //文件的图标句柄
    iIcon: Integer;                    { out: icon index }     //图标的系统索引号
    dwAttributes: DWORD;               { out: SFGAO_ flags }    //文件的属性值
    szDisplayName: array [0..MAX_PATH-1] of  AnsiChar; { out: display name (or path) }  //文件的显示名
    szTypeName: array [0..79] of AnsiChar;             { out: type name }      //文件的类型名
  end;
cbFileInfo 参数:psfi的比特值;
uFlags 参数:指明需要返回的文件信息标识符,常用的有以下常数:
    SHGFI_ICON;           //获得图标
    SHGFI_DISPLAYNAME;    //获得显示名
    SHGFI_TYPENAME;       //获得类型名
    SHGFI_ATTRIBUTES;     //获得属性
    SHGFI_LARGEICON;      //获得大图标
    SHGFI_SMALLICON;      //获得小图标
    SHGFI_PIDL;           // pszPath是一个标识符
函数SHGetFileInfo()的返回值也随uFlags的取值变化而有所不同。
可见通过调用SHGetFileInfo()可以由psfi参数得到文件的图标句柄。但要注意在uFlags参数中不使用SHGFI_PIDL时,SHGetFileInfo()不能获得“我的电脑”等虚似文件夹的信息。
应该注意的是，在调用SHGetFileInfo()之前，必须使用 CoInitialize 或者OleInitialize 初始化COM,否则表面上能够使用，但是会造成不安全或者丧失部分功能。例如，一个常见的例子：如果不初始化COM,那么调用该函数就无法得到.htm/.mht/.xml文件的图标。
以下是两个例子：
1.获得系统图标列表：
//取得系统图标列表
uses
ShellAPI
var
  ImageListHandle : THandle;
  FileInfo: TSHFileInfo;
//小图标
ImageListHandle := SHGetFileInfo('C:\',
                           0,
                           FileInfo,
                           SizeOf(FileInfo),
                           SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
//把图标列表同一个名叫ListView1的ListView控件的小图标关联。                          
SendMessage(ListView1.Handle, LVM_SETIMAGELIST, LVSIL_SMALL, ImageListHandle); 
//大图标   
ImageListHandle := SHGetFileInfo('C:\',
                           0,
                           FileInfo,
                           SizeOf(FileInfo),
                           SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
//把图标列表同一个名叫ListView1的ListView控件的大图标关联。                          
SendMessage(ListView1.Handle, LVM_SETIMAGELIST, LVSIL_NORMAL, ImageListHandle);
2.获得一个文件的显示名和图标
var
  sfi: TSHFileInfo;
IconIndex : Integer;
//取图标的索引号等信息
SHGetFileInfo(PAnsiChar(FileName),
                0,
                sfi,
                sizeof(TSHFileInfo),
                ShellAPI.SHGFI_DISPLAYNAME or ShellAPI.SHGFI_TYPENAME or ShellAPI.SHGFI_LARGEICON or ShellAPI.SHGFI_ICON);
//显示名和图标在系统图标列表中的编号就分别在sfi.szDisplayName和sfi.iIcon中

来源: http://www.programbbs.com/bbs/view20-13587-1.htm