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")
共 1 个关于本帖的回复 最后回复于 2013-7-2 13:57