.版本 2 .程序集 窗口程序集1 .程序集变量 i .程序集变量 k .程序集变量 fh .子程序 __启动窗口_创建完毕 .局部变量 cFonts fh ＝ AddFontMemResourceEx (#font, 取字节集长度 (#font), 0, cFonts) i ＝ 57426 ' 57547 标签1.字体.字体名称 ＝ “Setup” .子程序 _时钟1_周期事件 标签1.标题 ＝ W2A (到字节集 (i)) i ＝ i ＋ 1 .如果真 (i ＞ 57547) i ＝ 57426 标签1.标题 ＝ “ ” 时钟2.时钟周期 ＝ 250 时钟1.时钟周期 ＝ 0 .如果真结束 .子程序 _时钟2_周期事件 时钟1.时钟周期 ＝ 30 时钟2.时钟周期 ＝ 0 .子程序 W2A, 文本型, 公开, 将Unicode转成Ansi .参数 参数_Unicode文本, 字节集 .局部变量 Ansi长度, 整数型 .局部变量 返回值, 文本型 Ansi长度 ＝ WideCharToMultiByte (0, 0, 参数_Unicode文本, -1, “”, 0, 0, 0) 返回值 ＝ 取空白文本 (Ansi长度) WideCharToMultiByte (0, 0, 参数_Unicode文本, -1, 返回值, Ansi长度, 0, 0) 返回 (返回值) .子程序 __启动窗口_将被销毁 RemoveFontMemResourceEx (fh)