| 发表于:2007-06-15 17:24:494楼 得分:0 |
用api就可以了! declare function shgetfileinfo lib "shell32 " alias "shgetfileinfoa " _ (byval pszpath as any, _ byval dwfileattributes as long, _ psfi as shfileinfo, _ byval cbfileinfo as long, _ byval uflags as long) as long public function getsystemimagelist(usize as long) as long dim sfi as shfileinfo ' any valid file system path can be used to retrieve system image list handles. getsystemimagelist = shgetfileinfo( "c:\ ", 0, sfi, len(sfi), shgfi_sysiconindex or usize) end function | | |
|