'先引用Registry Access Functions library(RegObj.dll)]:
Private Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long
Sub delfont(ByVal fname As String)
fname = fname & " (truetype)"
Dim myreg As New Registry, temp As String, r As Long
myreg.GetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", fname, temp
temp = Environ("windir") & "\fonts\" & temp
r = RemoveFontResource(temp)
End Sub
Private Sub Command1_Click()
delfont "华文行楷"
End Sub
'先引用Registry Access Functions library(RegObj.dll)]:
Sub delfont(ByVal fname As String)
fname = fname & " (truetype)"
Dim myreg As New Registry, temp As String
myreg.GetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", fname, temp
temp = Environ("windir") & "\fonts\" & temp
If Dir(temp) > "" Then Kill temp
End Sub
Private Sub Command1_Click()
delfont "华文行楷"
End Sub