声明: 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:\myApp\myFont.ttf") 删除字体: Dim lResult As Long lResult = RemoveFontResource("c:\myApp\myFont.ttf")
----------------------------------------------