易语言模仿win8加载源码

.版本 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)

@哇哇哇方法