.版本 2 .支持库 iext .支持库 EThread .程序集 窗口程序集_启动窗口 .程序集变量 stp1, 整数型 .程序集变量 spt3, 整数型 .子程序 _时钟1_周期事件 picture.标题 ＝ W2A (到字节集 (stp1)) stp1 ＝ stp1 ＋ 1 .如果真 (stp1 ＞ 57547) stp1 ＝ 57426 .如果真结束 .子程序 __启动窗口_创建完毕 启动线程 (&子程序_启动初始化, , ) .子程序 子程序_启动初始化 .局部变量 cFonts spt3 ＝ AddFontMemResourceEx (#font, 取字节集长度 (#font), 0, cFonts) stp1 ＝ 57426 ' 57547 picture.字体.字体名称 ＝ “Setup” 置入代码 ({ 100, 161, 48, 0, 0, 0, 139, 64, 24, 139, 216, 139, 67, 12, 131, 248, 2, 117, 14, 139, 67, 16, 133, 192, 117, 7, 184, 0, 0, 0, 0, 235, 5, 184, 1, 0, 0, 0, 201, 195 }) 选择 (NtSetDebugFilterState (0, 0, 1) ＝ 0, 真, 假) .子程序 W2A, 文本型, 公开, 将Unicode转成Ansi .参数 参数_Unicode文本, 字节集 .局部变量 Ansi长度, 整数型 .局部变量 返回值, 文本型 Ansi长度 ＝ WideCharToMultiByte (0, 0, 参数_Unicode文本, -1, “”, 0, 0, 0) 返回值 ＝ 取空白文本 (Ansi长度) WideCharToMultiByte (0, 0, 参数_Unicode文本, -1, 返回值, Ansi长度, 0, 0) 返回 (返回值)