Icon引起打包失败

执行程序的文件名过长或是（_）的原因导致打包失败。
问题提示：Icon文件名入堆失败。
修改：把执行文件重命名，重新打包
－－－－－－－－－－－－－－－－－转载－－－－－－－－－－－－－－
如何提取一个exe文件中的图标
use   shellapi;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      hc:   TIcon;  
      Bitmap   :   TBitmap;  
  begin  
  //打开exe  
      opendialog1.Execute;          
      hc   :=   TIcon.Create;  
      Bitmap   :=   TBitmap.Create;  
  //提取exe图标  
      hc.Handle   :=   ExtractIcon(hInstance,   PChar(opendialog1.FileName),   0);  
  //将得到的ico转换为bitmap  
      Bitmap.Width   :=   hc.Width;  
      Bitmap.Height   :=   hc.Height;  
      Bitmap.Canvas.Draw(0,   0,   hc   );  
  //把bitmap传给speedbutton.glyph  
      SpeedButton1.Glyph:=bitmap;  
 //释放 资源  
      hc.Free;  
      Bitmap.Free;  
  end;  
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
转载自     http://topic.csdn.net/t/20021016/17/1102230.html
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝