SavetoFile bmp文件转换成 ico

//SavetoFile bmp文件转换成 ico 
procedure TForm1.Button1Click(Sender: TObject);
begin
 with Image1.Picture do
   begin
        SavetoFile('C:\frombmp.ico');
   end;
end;

通过 Wiz 发布