'From:  "Pascal Delcombel Wed Dec 11, 2002  4:45 pm
' Add / remove Windows font

'Install Font (just for windows's session, all application may see it)
'P. Delcombel / December 2002


Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long
Declare Function PostMessageW Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const HWND_BROADCAST = &HFFFF&
Const WM_FONTCHANGE = &H1D

dim FontFileName as string
dim FontName as string

FontFileName = "c:\windows\fonts\BusIndus.ttf" 'change as appropriate
FontName = "Business/Industrial" 'change as appropriate

AddFontResource(FontFileName)

CREATE MainForm AS QFORM
Width = 340
Height = 205
CREATE Bouton AS QCOOLBTN
font.name = FontName
Font.Bold = 1
Caption = "Et oui!"
Top = 32
Left = 125
Width = 45
END CREATE
END CREATE
MainForm.Showmodal
RemoveFontResource(FontFileName)


Sub AddFont(Filename As String) 
Dim lResult As Long
lResult = AddFontResource(FileName)
lResult = PostMessageW(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) 
End Sub
Sub RemoveFont(Filename As String) 
Dim lResult As Long
lResult = RemoveFontResource(FileName)
lResult = PostMessageW(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) 
End Sub