|
Dim Ret%, Res&
Const WM_FONTCHANGE = &H1D Const HWND_BROADCAST = &HFFFF Const FontPath$ = "Arial.TTF" Const FontRes$ = "Arial.FOT" Const FontName$ = "Arial" Const WinPath$ = "c:\windows" Ret% = CreateScalableFontResource(0, FontRes$, FontPath$, _ WinPath$) Ret% = AddFontResource(FontRes$) Res& = SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) Ret% = WriteProfileString("fonts", FontName$ + " Arial _ (TrueType)", FontRes$) Molte volte capita di dover installare un font distribuito assieme all'applicativo creato, normalmente dal VB questa operazione non e' possibile, utilizzando alcune funzione API invece si potra' installare qualsiasi font nel sistema, permettendo cosi alla nostra applicazione di poterlo utilizzare Tramite le funzioni CreateScalableFontResource, AddFontResource e SendMessage si potra' installare un font direttamente a runtime Utilizzando anche la funzione WriteProfileString si potra' avere il font installato sempre disponibile all'avvio di Windows ed di sponibile anche per le altre applicazioni. Per installare un font con le funzioni API appena menzionate si dovra' utilizzare il codice seguente : |