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