Delphi 把一个ICO转换为BMP


本文整理自网络,侵删。

 
// 方法1
var
  Icon  : TIcon;
  Bitmap : TBitmap;
begin
   Icon  := TIcon.Create;
   Bitmap := TBitmap.Create;
   Icon.LoadFromFile('c:\picture.ico'); //Load an ICO
from File
   Bitmap.Width := Icon.Width;
   Bitmap.Height := Icon.Height;
   Bitmap.Canvas.Draw(0, 0, Icon );
   Bitmap.SaveToFile('c:\picture.bmp'); //Convert ICO to
BMP!
   Icon.Free;
   Bitmap.Free;
end;

// 方法2
procedure TForm1.ConvertClick(Sender: TObject);
var
  winDC, srcdc, destdc : HDC;
  oldBitmap : HBitmap;
  iinfo : TICONINFO;
begin
 GetIconInfo(Image1.Picture.Icon.Handle, iinfo);
 WinDC := getDC(handle);
 srcDC := CreateCompatibleDC(WinDC);
 destDC := CreateCompatibleDC(WinDC);
 oldBitmap := SelectObject(destDC, iinfo.hbmColor);
 oldBitmap := SelectObject(srcDC, iinfo.hbmMask);
 BitBlt(destdc, 0, 0,
Image1.picture.icon.width,Image1.picture.icon.height,srcdc,
0, 0, SRCPAINT);
 Image2.picture.bitmap.handle := SelectObject(destDC,
oldBitmap);
 DeleteDC(destDC);
 DeleteDC(srcDC);
 DeleteDC(WinDC);
 image2.Picture.Bitmap.savetofile(ExtractFilePath(Applicat
ion.ExeName)+ 'myfile.bmp');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 image1.picture.icon.loadfromfile('c:\myicon.ico');
end;

相关阅读 >>

Delphi 代替pos的函数

Delphi 实现延时自动关闭对话框

Delphi 三层架构简单例子(经测试成功)

Delphi tfdmemtable 更新到数据库

Delphi 获取ie7 ie8 ie9 地址栏网址

Delphi 搜索字符串在流中的位置

Delphi中最小化其他程序及所有程序窗口最小化

Delphi获取计算机的工作组信息和获取工作组中的计算机名称

Delphi 打开win8及以上操作系统的系统已安装程序目录

Delphi将xm音乐文件嵌入自己的程序

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...