Рассмотрим пример конвертирования формата иконки .ico в .bmp. Поместим на форму следующие компоненты: TButton, TImage, TSaveDialog.
В обработчике событий OnClick кнопки запишем следующий код:
procedure TForm1.Button1Click(Sender: TObject); var Bitmap: TBitmap; begin Image1.Picture.Icon:=Application.Icon; Bitmap:=TBitMap.Create; with Bitmap do begin PixelFormat:=pf24bit; Height:=Application.Icon.Height; Width:=Application.Icon.Width; Canvas.Draw(0, 0, Image1.Picture.Graphic); end; if SaveDialog1.Execute then Bitmap.SavetoFile(SaveDialog1.FileName); end;
В результате выполнения иконка программы будет сохранена в формате .bmp в указанном Вами месте.
