从.exe或.dll中提取icon

摘　要：如何从 .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;