(资料图片)

1、rocedure TForm1.extract(filename:string);varbegin i:=-1; count:=extracticon(hinstance,pchar(filename),i); for i:=0 to count-1 do我用了膳绫擎的代码后,listview的每一个项目标搁笔都是小搁笔,不会是32*32的,这怎么回事 begin SetLength(ico,i+1); ico[i]:=TIcon.Create;//留意,ico是全局动态数组变量 imagelist1.AddIcon(ico[i]); listview1.Items.add; listview1.Items[i].Caption:=Extractfilename(filename); i,count:integer; listview1.Items[i].ImageIndex:=i; end;end; ico[i].Handle:=extracticon(hinstance,pchar(filename),i);注:listview1.LargeImagss:=ImageList1;to softsprite:不好意思,你如今还不克不及获得20分;to yinfudan:我很穷;。

本文就为大家分享到这里，希望小伙伴们会喜欢。