Delphi实现提取可执行文件内部所有图标答:Image1.Canvas.Refresh;nIcons:=ExtractIconEx(PChar(OpenDialog1.FileName), -1, Large, Small, 1);for i:=0 to nIcons-1 dobeginExtractIconEx(PChar(self.OpenDialog1.FileName), i, Large, Small, 1);DrawIcon(self.Image1.Canvas.Handle,(i div 4)*40,(i mod 4)*40,Large);...