.版本 2 .子程序 取语言集, 整数型, 公开, 一个PE文件可能包含多个不同语言的版本信息，如同时包含中文和英文信息，返回结果数组成员数，失败返回0 .参数 结果, 文本型, 参考 数组, 类似080404b0 .局部变量 size, 整数型 .局部变量 pbuffer, 整数型 .局部变量 bool, 逻辑型 .局部变量 lang, 文本型 .局部变量 i, 整数型 清除数组 (结果) bool ＝ VerQueryValue (_buffer, “\VarFileInfo\Translation”, pbuffer, size) .如果真 (bool) .计次循环首 (size ÷ 4, i) lang ＝ 取空白文本 (8) wvsprintf (lang, “%08x”, pbuffer ＋ (i － 1) × 4) 加入成员 (结果, 取文本右边 (lang, 4) ＋ 取文本左边 (lang, 4)) .计次循环尾 () .如果真结束 返回 (取数组成员数 (结果))