EXE程序图标修改器

易语言 2020-08-02 19:38:31

图标文件号 = 打开文件 (图标路径, 1, 1)
移到文件首 (图标文件号)
RtlMoveMemory3 (stID, 读入字节集 (图标文件号, 6), 6)
RtlMoveMemory4 (stIDE, 读入字节集 (图标文件号, 16), 16)
移动读写位置 (图标文件号, , stIDE.dwImageOffset)
图标数据 = 读入字节集 (图标文件号, stIDE.dwBytesInRes)
stGID.idType = 1
stGID.idCount = stID.idCount
RtlMoveMemory1 (stGID.idEntries, stIDE, 12)
图标缓冲数据 = 取空白字节集 (20)
RtlMoveMemory2 (图标缓冲数据, stGID, 20)
更新文件句柄 = BeginUpdateResourceA (程序路径, 假)
返回值 = UpdateResourceA (更新文件句柄, #RT_GROUP_ICON, 1, 0, 图标缓冲数据, 20) ' 22
返回值 = UpdateResourceA (更新文件句柄, #RT_ICON, 1, 0, 图标数据, stIDE.dwBytesInRes)
EndUpdateResourceA (更新文件句柄, 假)
关闭文件 (图标文件号)