提取图标

提取图标到ImageList

const
  SFile='D:\windows\system32\shell32.dll';
var
 i:integer;
 Count:integer;
 hIcon:HWND;
 icon:TICON;
begin
 Count :=-1;
 Count :=ExtractIcon(HInstance,SFile,Count);
 icon :=TICon.Create;
 try
  for i:=0 to Count-1 do
  begin
   hIcon :=ExtractIcon(HInstance,SFile,i);
   icon.Handle :=hIcon;
   imgList.AddIcon(icon);
   lstView.Items.Add.ImageIndex :=i;
  end;
 finally
  icon.Free;
 end;
end;  

提取图标并保存到本地
function GetFileIcon(const Filename:string;SmallIcon:Boolean):HICON;
var
 info:TSHFILEINFO;
 Flag:Integer;
begin
 if SmallIcon then
  Flag :=(SHGFI_SMALLICON or SHGFI_ICON)
 else
   Flag :=(SHGFI_LARGEICON or SHGFI_ICON);
  SHGetFileInfo(PChar(Filename),0,Info,Sizeof(info),flag);
 Result :=info.hIcon;
end;

procedure TForm1.Button1Click(Sender:TObject)
var
 icon:HICON;
 myicon:TIcon;
begin
 icon :=GetFileIcon('E:\...\1.exe',False);
 myicon :=TIcon.Create;
 myicon.Handle :=icon;
 myicon.SaveToFile('D:\s1.ico');
 DrawIconEx(Image1.Canvas.handle,10,10,icon,0,0,0,0,DI_NORMAL);
 myicon.Free;
end;