delphi TIcon保存ico文件时失真的解决办法

本文整理自网络，侵删。

 
提取exe文件中的图标并保存为ico文件：
ico := TIcon.Create;
try
  ico.handle := ExtractIcon(hInstance, ExeFileName, 0);
  ico.SaveToFile(''c:\001.ico'');
finally
  ico.free;
end;
保 存后的001.ico文件严重失真，我们打开Graphics.pas文件，找到writeIcon函数，在这个函数里有这样一行代码：
InternalGetDIBSizes(IconInfo.hbmColor, ColorInfoSize, ColorBitsSize, 16);
InternalGetDIBSizes函数的原型是这样声明的：
procedure InternalGetDIBSizes(Bitmap: HBITMAP; var InfoHeaderSize: DWORD; var ImageSize: DWORD; Colors: Integer);
我们可以看出最后一个参数指要保存的图标的颜色数，在 writeIcon函数中指定为16，也就是说保存为16位色，现在的图标都是32位真彩色，难怪会失真了。
我们把那行代码改成：
InternalGetDIBSizes(IconInfo.hbmColor, ColorInfoSize, ColorBitsSize, 65536);
当然还有下面一行
InternalGetDIB(IconInfo.hbmColor, 0, ColorInfo^, ColorBits^, 16);
也要改成
InternalGetDIB(IconInfo.hbmColor, 0, ColorInfo^, ColorBits^, 65536);
我们将改过后的Graphics.pas文件保存到当前工程目录下面， 然后重新编译程序，再次运行，图标就不会失真了
 

相关阅读 >>

Delphi 判断两个时间差是否在一个指定范围内

Delphi操作access数据库

Delphi 获取当前系统语言环境（en，fr，ja等）

Delphi 获取image.picture.data的数据

Delphi console 清屏代码

Delphi2010:把stringgrid数据保存到excel

Delphi中对url进行编码和解码

Delphi让程序运行后自我删除或恢复名称

Delphi 如何使用findfirst搜索不同的文件类型？

Delphi android权限

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

转载请注明出处：木庄网络博客 » delphi TIcon保存ico文件时失真的解决办法