获取文件中的图标

//作者:渣渣皮根据淡淡的风大佬写的代码基础上完善的  2025.02.21更新

感谢:淡淡的风

Procedure TForm1.Button1Click(Sender: TObject);
Var
IconHandle: HICON;
Icon: TIcon;
IconIndex: Integer;
w: Word;
Begin
//在窗体上新建一个ImageList和Image
//需要引用Winapi.ShellAPI单元 //w为获取第几个图标,索引默认从0开始
IconHandle:=ExtractAssociatedIcon(HInstance, PChar(Edit1.Text), w);
If IconHandle<>0 Then
Begin
Icon:=TIcon.Create;
Icon.Handle:=IconHandle;
ImageList1.Clear; //清空所有图标
IconIndex:=ImageList1.AddIcon(Icon); //添加图标到ImageList中,返回索引值
ImageList1.GetIcon(IconIndex, Icon); // 获取索引值的图标
Image1.Picture.Assign(Icon); // 赋值给Image控件
End;
End;