自定义设置文件版本详细信息软件

原始文件数据 ＝ 读入文件 (文件名)
' 先更新一下文件，如果是独立编译的易程序，会丢失后面的数据
更新句柄 ＝ BeginUpdateResourceA (文件名, 假)
EndUpdateResourceA (更新句柄, 假)
版本信息数据 ＝ 从文本转换版本信息 (文本版本信息)
检查后文件数据 ＝ 读入文件 (文件名)
.判断开始 (取字节集长度 (检查后文件数据) ＝ 取字节集长度 (原始文件数据))
更新句柄 ＝ BeginUpdateResourceA (文件名, 假)
UpdateResourceA (更新句柄, #RT_VERSION, 1, 2052, 版本信息数据, 取字节集长度 (版本信息数据))
EndUpdateResourceA (更新句柄, 假)
.判断 (取字节集长度 (检查后文件数据) ＜ 取字节集长度 (原始文件数据))
' 如果丢失过数据，那么把这部分数据先取出来
尾部数据 ＝ 取字节集右边 (原始文件数据, 取字节集长度 (原始文件数据) － 取字节集长度 (检查后文件数据))
更新句柄 ＝ BeginUpdateResourceA (文件名, 假)
UpdateResourceA (更新句柄, #RT_VERSION, 1, 2052, 版本信息数据, 取字节集长度 (版本信息数据))
EndUpdateResourceA (更新句柄, 假)
' 把丢失的那部分数据加回去
写到文件 (文件名, 读入文件 (文件名) ＋ 尾部数据)

.如果真 (编辑框1.内容 ＝ “”)
信息框 (“请先选择要设置版本信息的可执行文件！”, #信息图标, “注意”)
返回 ()
.如果真结束
.如果真 (信息框 (“此操作将修改被选中的文件，是否继续？”, #询问图标 ＋ #是否钮, “是否继续”) ＝ #是钮)
更新文件版本资源 (编辑框1.内容, 生成文本版本信息 ())
信息框 (“设置文件版本信息完毕！”, #信息图标, )