TofClock html , stro dur :D !! | Je repose ma question autrement :
Ceci est un code VB6 :
Code :
- Private Const HWND_BROADCAST = &HFFFF&
- Private Const WM_FONTCHANGE = &H1D
- Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
- Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
- Function SaveFonts(FichierPolice)
- res = AddFontResource(FichierPolice) 'Installation de la police
-
- If res > 0 Then 'Test de l'install de la police
- SendMessage HWND_BROADCAST, WM_FONTCHANGE, 0, 0 'L'install à réussit, on valide la police dans les registres
- msg = "Police : " & FichierPolice & " à été installée" & Chr(13) 'Message de confirmation d'ajout
- Else
- msg = "Police : " & FichierPolice & " n'a pas été installée" & Chr(13) 'Message comme quoi ce n'est pas installé
- End If
- MsgBox msg 'Affichage du rapport
- End Function
|
Comment faire la meme chose , mais depuis un script VBS ? ( c'est surtout la fonction SendMessage qui m'interresse) Message édité par TofClock le 25-02-2005 à 19:10:13
|