Как преобразовать ICO в BMP

Тема в разделе "Delphi", создана пользователем WinHack, 27 ноя 2016.

  1. WinHack
    Если Вы хотите преобразовать файл иконки (*.ICO) в файл точечного растрового изображения (*.BMP), Вам необходимо выполнить следующий код:

    Код:
    procedure IcoToBmp;
     var
        Icon : TIcon;
        Bitmap : TBitmap;
     begin
        Icon := TIcon.Create;
        Bitmap := TBitmap.Create;
        Icon.LoadFromFile('C:\Windows\Printer.ico') ;
        Bitmap.Width := Icon.Width;
        Bitmap.Height := Icon.Height;
        Bitmap.Canvas.Draw(0, 0, Icon ) ;
        Bitmap.SaveToFile('C:\Temp\Picture.bmp') ;
        Icon.Free;
        Bitmap.Free;
     end;