ICO失真问题求助 ( 积分: 100 )

  • 主题发起人 主题发起人 plazhaofeng
  • 开始时间 开始时间
P

plazhaofeng

Unregistered / Unconfirmed
GUEST, unregistred user!
我用extractIcon(hinstance, pchar(ParamStr(0)),0); 取出exe文件的ico图标
然后SaveToFile()保存到文件后。颜色失真。
请问怎么回事
 
怎么没有回答啊
 
这个api是会失真的。
 
Delphi不支持256色图标你只能自已写保存过程
 
如要能装入大于16色图标可以修改Graphics单元的WriteIcon过程中的
InternalGetDIBSizes(IconInfo.hbmColor, ColorInfoSize, ColorBitsSize, 16);
改为
InternalGetDIBSizes(IconInfo.hbmColor, ColorInfoSize, ColorBitsSize, 65536);
就可以了
 
接受答案了.
 
后退
顶部