如何取得文件的图标? 用API函数:SHGetFileInfo就可以了。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我记得用API:ExtractIcon,定义:Public Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long;可以把exe,dll等文件中的所有icon都取出来。 使用ShGetFileInfo,返回ImageList的Handle,将这个ListView的Images的Handle指向这个之就可以了,我使用BCB实现如下: THandle ImageList; SHFILEINFO * FileInfo=new SHFILEINFO(); ImageList=SHGetFileInfo("C:\\",0,FileInfo,sizeof(SHFILEINFO),SHGFI_SYSICONINDEX | SHGFI_SMALLICON); SendMessage(lstvwOriginalFiles->Handle,LVM_SETIMAGELIST,LVSIL_SMALL,ImageList); ImageList=SHGetFileInfo("C:\\",0,FileInfo,sizeof(SHFILEINFO),SHGFI_SYSICONINDEX | SHGFI_LARGEICON); SendMessage(lstvwOriginalFiles->Handle,LVM_SETIMAGELIST,LVSIL_NORMAL,ImageList); delete FileInfo; 如何用VBS先清空Hosts,然后添加项目。。 怎么实现工业称的去皮功能,用VB写的 已知在另一个已经打开的程序窗口上创建一个按钮的方法,请问如何给这个按钮加上事件? 有几个颜色常数??? VB环境监测采集数据 求VISTA自动强制关机程序 查看VB6编译好的exe文件是由哪个具体的VB6版本编译的? 有关propertybag 如何选择打开? 有关数据库! 关于集合类的一个问题! 打包时要打包.oca文件吗?
定义:Public Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long;
可以把exe,dll等文件中的所有icon都取出来。
THandle ImageList;
SHFILEINFO * FileInfo=new SHFILEINFO();
ImageList=SHGetFileInfo("C:\\",0,FileInfo,sizeof(SHFILEINFO),SHGFI_SYSICONINDEX | SHGFI_SMALLICON);
SendMessage(lstvwOriginalFiles->Handle,LVM_SETIMAGELIST,LVSIL_SMALL,ImageList);
ImageList=SHGetFileInfo("C:\\",0,FileInfo,sizeof(SHFILEINFO),SHGFI_SYSICONINDEX | SHGFI_LARGEICON);
SendMessage(lstvwOriginalFiles->Handle,LVM_SETIMAGELIST,LVSIL_NORMAL,ImageList);
delete FileInfo;