icon to bmp的 代码????????????????

Question

Image1.Picture.LoadFromFile('C:\DD.ICO');//加载ICON；Image1.Picture.SaveToFile('C:\DD.BMP');存为BMP

Answer 1

你会不会别的？
如何用draw转换！！！可以设置图标的背景的转换！！！

Answer 2

function Icotobmp(iconfilename,bmpfilename):String;
var
  Icon:TIcon;
  Bitmap:TBitmap;
begin
      result:='';
      Try
         Icon:=TIcon.create;
         Bitmap:=TBitmap.create;
         Icon.LoadFromFile(Iconfilename);
         Bitmap.Height := icon.Height;
         Bitmap.Width := icon.Width;
         Bitmap.Canvas.Draw(0, 0, Icon);
          if trim(bmpfilename)='' then
           begin
               bmpfilename:=copy(iconfilename,1,length(iconfilename)-3)+'bmp';
           end;
         Bitmap.SaveToFile(bmpfilename);
          result:=bmpfilename;
      finally
         Icon.Free;
         Bitmap.Free;
      end;
end;