P plazhaofeng Unregistered / Unconfirmed GUEST, unregistred user! 2007-09-20 #1 我用extractIcon(hinstance, pchar(ParamStr(0)),0); 取出exe文件的ico图标 然后SaveToFile()保存到文件后。颜色失真。 请问怎么回事
F fang_csc Unregistered / Unconfirmed GUEST, unregistred user! 2007-09-20 #4 Delphi不支持256色图标你只能自已写保存过程
F fang_csc Unregistered / Unconfirmed GUEST, unregistred user! 2007-09-20 #5 如要能装入大于16色图标可以修改Graphics单元的WriteIcon过程中的 InternalGetDIBSizes(IconInfo.hbmColor, ColorInfoSize, ColorBitsSize, 16); 改为 InternalGetDIBSizes(IconInfo.hbmColor, ColorInfoSize, ColorBitsSize, 65536); 就可以了
如要能装入大于16色图标可以修改Graphics单元的WriteIcon过程中的 InternalGetDIBSizes(IconInfo.hbmColor, ColorInfoSize, ColorBitsSize, 16); 改为 InternalGetDIBSizes(IconInfo.hbmColor, ColorInfoSize, ColorBitsSize, 65536); 就可以了