字体文件？？？？？？？？？？？？？？？？？？？？？

Question

使用API函数AddFontResource:Public Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
-------------------------------------------------------------------
添加了一种资源后必须调用下述API函数：
di% = SendMessageBynum(HWND_BROADCAST, WM_FONTCHANGE, x, y)
其中，HWND_BROADCAST、WM_FONTCHANGE使用来自API32.TXT文件的值。这样便可告诉所有Windows应用程序字体列表已发生了变化:
示例 
Call AddFontResource("myfont.ttf")
Call SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) 

Answer 1

完整示例:
------------------------------------------------------------
Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long 
Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long
增加字体： 
Dim ret As Long 
ret = AddFontResource("c:\MyFont.ttf") 
删除字体： 
Dim ret As Long 
ret = RemoveFontResource("c:\MyFont.ttf")