procedure TForm1.Button1Click(Sender: TObject);
var
aa :TIcon;
bb :TBitmap;
begin
aa :=TIcon.Create;
aa.LoadFromFile('f:/图片/ico/ico/3D.ico');
bb :=TBitmap.Create;
bb.Width :=aa.Width;
bb.Height :=aa.Height;
bb.Canvas.Draw(0,0,aa);
bb.SaveToFile('c:/123.bmp');
bb.Free;
aa.Free;
end;
