DoΦasnß instalace fontu
Do deklaraΦnφ Φßsti formulß°e zapiÜte:
Private Declare Function AddFontResource& Lib "gdi32" _
Alias "AddFontResourceA" (ByVal lpFileName As String)
Private Declare Function RemoveFontResource& Lib "gdi32" _
Alias "RemoveFontResourceA" (ByVal lpFileName As String)
Na formulß° p°idejte tlaΦφtko a zapiÜte:
Private Sub Command1_Click()
Dim retvalue As Long
retvalue = RemoveFontResource("c:\MyFont.ttf")
Command1.Caption = "Odebrat"
End Sub
Private Sub Form_Load()
Dim retvalue As Long
Command1.Caption = "uninstall"
retvalue = AddFontResource("c:\MyFont.ttf")
Command1.FontName = "Nainstalovat"
End Sub