delphi提取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;