用VB安裝電腦字體

新建模塊： Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long 窗體代碼： Private Sub Command1_Click() Dim ziti As String ziti = "c:\ziti.ttf" '需要安裝的字體文件位置 tmp = Right(ziti, Len(ziti) - InStrRev(ziti, "\")) FileCopy ziti, "c:\WINDOWS\Fonts\" & tmp Dim lResult As Long lResult = AddFontResource("c:\WINDOWS\Fonts\" & tmp) If lResult = 2 Then MsgBox "安裝成功" Else MsgBox "安裝失敗" End If End Sub

上一篇:去珠海兒童科技館坐哪路車？

下一篇:我下載了壹組AE 的槍火素材 Mov結尾的 如何導入