|
5#
![](static/image/common/ico_lz.png)
楼主 |
发表于 2020-6-24 10:45:00
|
只看该作者
管理员】王者之风(396714845) 2020/6/24 10:30:04
獨劍
http://bbs.wuyou.net/forum.php?m ... p;extra=#pid4089577
@獨劍 下面的代码是来演示安装楷体和仿宋的GB2312字体,运用到_WinAPI_AddFontResourceEx函数
字体所对应的注册表位置是【HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts】
最后要刷新下注册表,不然需要注销或者重启,字体才能使用并显示。
#NoTrayIcon
#RequireAdmin
#include <WinAPIGdi.au3>
;复制文件到C:\Windows\fonts
FileCopy(@ScriptDir & "\楷体_GB2312.ttf","C:\Windows\fonts",1)
FileCopy(@ScriptDir & "\仿宋_GB2312.ttf","C:\Windows\fonts",1)
;添加字体到注册表
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts","楷体_GB2312 (TrueType)","REG_SZ","楷体_GB2312.TTF")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts","仿宋_GB2312 (TrueType)","REG_SZ","仿宋_GB2312.TTF")
;添加指定文件的字体资源到系统字体表
;本函数仅安装字体到当前会话期, 当系统重启后, 字体将不存在.
;要确保添加的字体在系统重启后仍然可用, 该字体必须注册到注册表中.
_WinAPI_AddFontResourceEx ("C:\Windows\fonts\楷体_GB2312.ttf")
_WinAPI_AddFontResourceEx ("C:\Windows\fonts\仿宋_GB2312.ttf")
;刷新注册表,不需要重启
DllCall('WININET.DLL', 'long', 'InternetSetOption', 'int', 0, 'long', 39, 'str', 0, 'long', 0) |
|