根据文件扩展名显示对应的图标问题

2014-03-29 01:17:09 2.6k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C#Winform开发，Listview根据文件路径或扩展名显示系统文件图标在Winform开发中，大家普遍利用Listview来显示文件列表。但是Listview本身并不具备显示当前系统图标的功能。所以要想实现类似的功能，需要利用Icon和Imagelist来辅助。 1，实例一个imagelist作为图标管理容器。 2，根据文件绝对路径将对应的系统图标加入imagelist 3，将listview的显示属性View修改为：SmallIcon 4，获取对阅读详情



cFilename='.xls'	&& 文件类型，如.xls .jpg 等等

utype=1				&& 图标类型，0为大图标，1为小图标



Declare Integer SHGetFileInfo In shell32 String pszPath,Long dwFileAttributes,String @psfi,Long cbFileInfo,Long uFlags

Declare Integer GetDC In user32 Integer HWnd

Declare Short DrawIcon In user32 Integer hDC,Integer X,Integer Y,Integer hIcon

Declare Short DestroyIcon In user32 Integer hIcon

Declare Integer ReleaseDC In user32 Integer HWnd,Integer hdc

Local cBuffer,nResult,hIcon,lhDC

cBuffer=Replicate(Chr(0),1024)

nResult=SHGetFileInfo(cFilename,utype,@cBuffer,1024,272)

hIcon=CToBin(Substr(cBuffer,1,4),'4rs')

lhDC=GetDC(Thisform.HWnd)

DrawIcon(lhDC,0,0,hIcon)

DestroyIcon(hIcon)

ReleaseDC(Thisform.HWnd,lhDC)

上面这段代码，是十豆三老师在http://bbs.csdn.net/topics/390294824帖中的回复，如何将该段代码中的结果(不同文件的扩展名显示对应图标)赋值给：
THISFORM.IMAGE1.PICTURE=????
先谢谢了！

...全文

C#读取系统文件信息(二）——调API读取系统文件及系统盘Icon图标 ListViewItem是不能直接显示图标的。我们需要先建立一个ImageList。然后将listView的SmallImageList（小图标）属性指定为建立的ImageList。过程中，我们会将读取的图标信息存放在ImageList的Images中。 ListViewItem中有一个属性是ImageIndex。我们输入int值，它会返回Images中对应的Icon。但我们读图标，一般用扩展名，怎么对应上它的int值呢？我们可以用一个哈希表读取图标后，首先放在阅读详情

lygcw9602

VFP 2,750 成员 29,142 内容

+ 关注 + 加入社区

切换为时间正序

YUAN168 2014-05-09

打赏
举报

DECLARE INTEGER SHGetFileInfo IN shell32; STRING pszPath,; LONG dwFileAttributes,; STRING @psfi,; LONG cbFileInfo,; LONG uFlags DECLARE INTEGER GdipCreateBitmapFromHICON IN gdiplus; INTEGER hicon,; INTEGER @hbitmap DECLARE INTEGER GdipGetImageHeight IN gdiplus; INTEGER img,; INTEGER @ imgheight DECLARE INTEGER GdipGetImageWidth IN gdiplus; INTEGER img,; INTEGER @ imgwidth DECLARE Long GdipSaveImageToFile IN Gdiplus LONG nativeImage, STRING cFile, ; STRING EncoderClsID,; STRING EncoderParameters DECLARE LONG GdipDisposeImage IN Gdiplus LONG nativeImage Declare Long GdipBitmapSetPixel in GdiPlus.dll ; Long nativeImage, Long x, Long y, Long argb Declare Long GdipBitmapGetPixel in GdiPlus.dll ; Long nativeImage, Long x, Long y, Long @argb DECLARE INTEGER GdiplusStartup IN gdiplus; INTEGER @token, STRING @INPUT, INTEGER OUTPUT FUNCTION SaveIco2Jpg **定义函数 LPARAMETERS cFilename as string,lcOutputFile as string,utype as long **cFilename 参数：文件类型，如.xls .mdb 等等 **lcOutputFile参数：保存到本地的文件名称，如 dbf.jpg **utype参数：图标类型，0为大图标，1为小图标 ******************************************* *算法制作:行者孙(QQ:310727570) ******************************************* *VFP应用程式算法群:12787940 ******************************************* declareAPIFunction() LOCAL hToken, cInput hToken = 0 cInput = PADR(CHR(1), 16, CHR(0)) GdiplusStartup(@hToken, @cInput, 0) LOCAL cBuffer,nResult,hIcon,hbitmap,argb,imgwidth,imgheigh,ClsID_JPG ClsID_JPG=0h01F47C55041AD3119A730000F81EF32E STORE 0 TO hbitmap,argb,imgwidth,imgheight cBuffer=REPLICATE(CHR(0),1024) nResult=SHGetFileInfo(cFilename,utype,@cBuffer,1024,272) hIcon=ctobin(SUBSTR(cBuffer,1,4),'4rs') GdipCreateBitmapFromHICON(hIcon,@hbitmap) GdipGetImageHeight(hbitmap,@imgheight) GdipGetImageWidth(hbitmap,@imgwidth) FOR i=0 TO imgwidth-1 FOR ii=0 TO imgheight-1 GdipBitmapGetPixel(hbitmap,i,ii,@argb) IF argb=0 GdipBitmapSetPixel(hbitmap,i,ii,0xFFFFFF) ENDI ENDF ENDF GdipSaveImageToFile(hbitmap,STRCONV(lcOutputFile+CHR(0),5),ClsID_JPG, NULL) GdipDisposeImage(hbitmap) ENDFUNC ========================================以上放到一个program.prg中调用 =saveico2jpg(cFileName,"c:\app.jpg",0) this.image1.Picture="c:\app.jpg"

lygcw9602 2014-03-30

打赏
举报

谢谢猫老师了，我先按你说的试试

都市夜猫 2014-03-29

打赏
举报

1. 当 SHGetFileInfo 函数用来取图标时，第二个参数是没什么意义的，所以设置0或1都没有区别，要指定是取那种类型的图标，应该在第5个参数中指定，例如： SHGFI_ICON+SHGFI_LARGEICON+SHGFI_USEFILEATTRIBUTES 用来指定取大图标 SHGFI_ICON+SHGFI_SMALLICON+SHGFI_USEFILEATTRIBUTES 用来取小图标 SHGFI_ICON+SHGFI_SHELLICONSIZE+SHGFI_USEFILEATTRIBUTES 用来取shell显示尺寸的图标 2. 用 vfp 的 SavePicture 或者 win32api 的 OleSavePictureFile 都只能保存 16 色的图片，这些函数在 gdiplus 出现后，可以说都已经过时了，现在很难碰到只使用 16 色图片的人 3. 用 SHGetFileInfo 函数取出图标后，得到的是图标句柄，你可以使用 gdiplus 将它保存为文件，然后指定给 Image.Picture 使用，关于保存为文件，你可以看看不久前的这个帖子：http://bbs.csdn.net/topics/390717978，参考其中 GdipCreateBitmapFromHICON 和 GdipSaveImageToFile 函数的用法 4. 如果不希望创建图片文件，也可以将图标转成图形数据流，然后直接赋值给 Image.PictureVal 使用先自己试试能否按上面的描述解决问题，不行我再贴些示例代码

lygcw9602 2014-03-29

打赏
举报

谢谢十豆三老师，试了下改进后的代码常用文件的图标都能显示出来 utype=1 && 图标类型，0为大图标，1为小图标此处设置为0与1 结果没有什么不同还有最后生成的ICO文件，色彩失真，是不是与电脑的设置有关系？

十豆三 2014-03-29

打赏
举报

关于图片完美提取请参考dkfdtf 版主的：提取可执行文件中图标 http://blog.csdn.net/dkfdtf/article/details/5678990

十豆三 2014-03-29

打赏
举报

Clear Resources cFilename='.docx' && 文件类型，如.xls .jpg 等等 Declare Integer OleCreatePictureIndirect In oleaut32 String @lpPictDesc,String @riid,Long fOwn,Object @lplpvObj Declare Integer SHGetFileInfo In shell32 String pszPath,Long dwFileAttributes,String @psfi,Long cbFileInfo,Long uFlags Declare Integer GetDC In user32 Integer HWnd Declare Short DrawIcon In user32 Integer hDC,Integer X,Integer Y,Integer hIcon Declare Short DestroyIcon In user32 Integer hIcon Declare Integer ReleaseDC In user32 Integer HWnd,Integer hdc #Define SHGFI_ICON 0x000000100 && 获得图标 #Define SHGFI_USEFILEATTRIBUTES 0x000000010 && 不检测第一个参数所指定的文件是否存在 #Define SHGFI_LARGEICON 0x000000000 && Get large Icon #Define SHGFI_SMALLICON 0x000000001 && Get small Icon #Define PICTYPE_ICON 3 #Define GUID_Icon 0h8109F87B32BF1A108BBB00AA00300CAB && 0h0004020000000000C000000000000046 Local cBuffer,nResult,hIcon,lhDC,lcPictDesc,lqGuid,loIconObj utype=1 && 图标类型，0为大图标，1为小图标 cBuffer=Replicate(Chr(0),1024) nResult=SHGetFileInfo(cFilename,utype,@cBuffer,1024,SHGFI_ICON+SHGFI_LARGEICON+SHGFI_USEFILEATTRIBUTES) hIcon=CToBin(Substr(cBuffer,1,4),'4rs') lcPictDesc=BinToC(16,"4RS")+; && Size of Structure BinToC(PICTYPE_ICON,"4RS")+; && Type of Image BinToC(hIcon,"4RS")+; && Image Handle BinToC(0,"4RS") lqGuid=GUID_Icon loIconObj=0 OleCreatePictureIndirect(@lcPictDesc,@lqGuid,1,@loIconObj) If Vartype(loIconObj)='O' lcIconFileName=Sys(2015)+'.ico' SavePicture(loIconObj,lcIconFileName) Thisform.Image1.Picture=lcIconFileName Endif lhDC = GetDC(Thisform.HWnd) DrawIcon(lhDC,0,0,hIcon) DestroyIcon(hIcon) ReleaseDC(Thisform.HWnd,lhDC)

根据文件扩展名显示对应的图标问题

相关推荐