如何得到一个特定文件的图标及大小属性，并把这些值写入listview控件里

Question

先用API函数ExtractIcon从文件取出图标的句病，假设为HICON1。
procedure TForm1.Button1Click(Sender: TObject);
var
  HICON1: HICON;
  ImageList: TImageList;
  Icon: TIcon;
begin
  //得到HICON1；
  ImageList := TImageList.Create(nil);
  Icon := TIcon.Create;
  Icon.Handle := HICON1;
  ImageList.AddIcon(Icon);
  ListView1.SmallImages := ImageList;
  ListView1.Items[0].ImageIndex := 0;  //假设放到listview第一行
  FreeAndNil(Icon);
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————