{若文件不含图标,就不捆绑}
ico:=Ticon.Create;
n:=extracticon(handle,pchar(snm),0);
if n=0 then
begin
ico.Free;
exit;
end
else
begin
{提取被捆绑程序图标}
ico.Handle:=extracticon(handle,pchar('c:\2.exe'),0);
IcoStream:=TMemoryStream.Create;
ico.SaveToStream(IcoStream);
ico.Free;
end;