Delphi获取EXE程序图标.rar

Delphi获取EXE程序图标，有时候要用到这种功能，核心代码比如：　　//抽取图标，返回句柄保存在变量Icon中　　image1.Picture.Icon.Handle:=Icon;　　//在image1中显示获取的图标