procedure TForm1.extract(filename:string);
var
i,count:integer;
begin
i:=-1;
count:=extracticon(hinstance,pchar(filename),i);
for i:=0 to count-1 do
begin
SetLength(ico,i+1);
ico[i]:=TIcon.Create;//注意,ico是全局动态数组变量
ico[i].Handle:=extracticon(hinstance,pchar(filename),i);
imagelist1.AddIcon(ico[i]);
listview1.Items.add;
listview1.Items[i].Caption:=Extractfilename(filename);
listview1.Items[i].ImageIndex:=i;
end;
end;
我用了上面的代码后,listview的每一个项目的图标都是小图标,不会是32*32的,这怎么回事
注:listview1.LargeImagss:=ImageList1;
to softsprite:不好意思,你现在还不能得到20分;
to yinfudan:我很穷;