帮我看一下我的ListView1怎么显示不了系统的图标

Question

procedure TForm1.SpeedButton2Click(Sender: TObject);
  var
  i,j:integer;
  myicon: TSHFILEINFO;
begin
 For i:=0 to (ShellListView1.Items.Count -1) do
 begin
   if ShellListView1.Items[i].Selected=true then
   begin
     for j:=0 to (ListView1.Items.Count -1) do
     with ListView1.Items.Add do
     begin
       Caption:=ShellListView1.Folders[i].PathName;
       ShGetFileInfo(pchar(ShellListView1.Selected.Caption), 0, myicon, SizeOf(TSHFileInfo),
                 SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
       ImageIndex:=myicon.iIcon;
     end;
   end;
 end;
end;

Answer 1

ImageIndex是与listview相关的imagelist中图片的索引值，而且是个整形变量，你这样赋值肯定不行