Installazione Font da Codice

Post date: Feb 3, 2012 7:22:01 PM

Funzionante su XP e su Seven. Con quest'ultimo occorrono le autorizzazioni dell'UAC.

Dim Ret As Integer

Dim Res As Integer

Dim FontPath As String

Const WM_FONTCHANGE As Integer = &H1D

Const HWND_BROADCAST As Integer = &HFFFF

FontPath = Path.Combine(My.Application.Info.DirectoryPath, "NomeFont.ttf")

Ret = AddFontResource(FontPath)

Res = SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)

Ret = WriteProfileString("fonts", "NomeFont" & " (TrueType)", "NomeFont.ttf")