选择夹设置图标

ImageList ＝ ImageList_Create (16, 16, 32, 0, 0) ' 创建图片组
ImageList_SetBkColor (ImageList, 取系统默认色_ (15)) ' 设置图片组背景色
SendMessage (集_句柄, 4867, 0, ImageList) ' 设置选择夹图片组
SHGetFileInfo (“c:\windows\explorer.exe”, 128, 文件信息, 348, 257)
局_ico ＝ ImageList_AddIcon (ImageList, 文件信息.hIcon)