[重要更新]加载外部字体

英顺的马甲

1. #==============================================================================
   
2. # ● 加载外部字体 by 英顺的马甲
   
3. #==============================================================================
   
4. AFR = Win32API.new("gdi32.dll","AddFontResource","P","L") # 设置加载字体API
   
5. RFR = Win32API.new("gdi32.dll","RemoveFontResource","P","L") # 设置移除字体API
   
6. SM = Win32API.new("user32.dll","SendMessage","LLLL","L") # 设置发送消息API
   
7. Dir["fonts/*.ttf"].each{|f|AFR.call(f)} # 加载在fonts文件夹的所有字体
   
8. SM.call(0xFFFFFFFF,0x001D,0,0) # 发送字体列表改变的消息
   
9. $orig_exit = method("exit") # 设置原来的exit
   
10. def exit(*args) # 重定义exit
    
11.   Dir["fonts/*.ttf"].each{|f|RFR.call(f)} # 移除字体
    
12.   Dir["c:/windows/fonts/*.ttf"].each{|f|AFR.call(f)} # 恢复已安装的字体
    
13.   SM.call(0xFFFFFFFF,0x001D,0,0) # 发送字体列表改变的消息
    
14.   $orig_exit.call(*args) # 调用原来的exit
    
15. end # 结束exit的定义
    
16. #==============================================================================
    
17. # ● 此脚本来自http://rpg.blue/thread-240937-1-1.html，转载时请保留此信息
    
18. #==============================================================================

复制代码

话说详细注释有糖吧＝＝
此更新修正一个灰常坑爹的Bug

说明：自动加载fonts文件夹里的所有ttf字体。

虾米￡浪子

虾米￡浪子 发表于 2012-11-1 18:09
使用此脚本,直接卡屏?什么情况,请说明使用方法.

重新启动下能用了。

虾米￡浪子

使用此脚本,直接卡屏?什么情况,请说明使用方法.

kuerlulu

06那行
  SM亮了~

勇敢的馒头

别说我翻旧帖啊，这到底有什么用啊？
是不是可以使用系统自带的以外字体了？发布了别人也可以玩的到的意思吗？

冰舞蝶恋

加油>m<
话说更新内容是啥？能说下不

英顺的马甲

更新自顶

忧雪の伤

UI> 我说，你变量名能弄正规点么。