声明:

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 lResult As Long

lResult = AddFontResource("c:myAppmyFont.ttf")

删除字体:

Dim lResult As Long

lResult = RemoveFontResource("c:myAppmyFont.ttf")