摘　要：如何从 .exe 或 .dll中提取icon?
　关键字：ExtractIcon TIcon
　类　别：API 

    使用API函数ExtractIcon()
    例子:

var
  TheIcon: TIcon;
begin
  TheIcon := TIcon.Create;
  TheIcon.Handle := ExtractIcon(hInstance,
                                'C:\SOMEPATH\SOMEPROG.EXE',
                                0);
{对icon进行一些操作}
  TheIcon.Free;
end;

（出处：DelphiFans.com）