[MMFII Dev] Fermer le dossier fonts de Windows

[Falco]

Bonjour,

Je travaille depuis peu sur un petit utilitaire qui permettrai d'installer automatiquement des polices de textes dans le dossier Fonts de Windows.
Pour cela il suffit de placer sa police dans un dossier "polices", puis de lancer l'exécuteur.

Pour que l'action se réalise, je suis obligé de forcer l'ouverture du dossier fonts de Windows pendant le déplacement.
Donc la tout va bien, le déplacement fonctionne, par contre, j'aimerai qu'une fois le déplacement terminé, que le dossier fonts se ferme automatiquement.

J'ai essayé de chercher un peu partout, en vain, je viens donc ici, le seul endroit ou je serai réellement fixé sur le fait de savoir si c'est possible, ou pas [img]<<GRAEMLIN_URL>>/smile.gif[/img]

Merci par avance.
Cordialement.

[ouly]

Bonjour,
Je ne sais pas si vous avez consulté les liens dans cette page :
http://social.msdn.microsoft.com/For...b-6e799eb0fbb7

Nécessite DLL Object et peut-être même Binary Object pour faire l'équivalent sous MMF.

ouly

[Falco]

Bonjour,

J'ai trouvé ce code sur l'un des sites données par votre lien :

''API declarations
Private Declare Function AddFontResource Lib &amp;#147;gdi32&amp;#148; Alias
&amp;#147;AddFontResourceA&amp;#148; (ByVal lpFileName As String) As Long
Private Declare Function RemoveFontResource Lib &amp;#147;gdi32&amp;#148; Alias
&amp;#147;RemoveFontResourceA&amp;#148; (ByVal lpFileName As String) As Long

'code

Public Function LoadFont(FntFileName As String) As Boolean
Dim FntRC As Long
FntRC = AddFontResource(FntFileName)
If FntRC = 0 Then 'no success
LoadFont = False
Else 'success
LoadFont = True
End If
End Function
'FntFileName includes also path
Public Function RemoveFont(FntFileName As String) As Boolean
Dim RC As Long

Do
RC = RemoveFontResource(FntFileName)
Loop Until RC=0

End Function


Sauriez vous comment faire pour l'appliquer avec MMF ?
Je crois que c'est du visual basic...

Merci [img]<<GRAEMLIN_URL>>/smile.gif[/img]

[Sphax]

Il faudrait une extension ou le code en .net pour l'utiliser avec l'extension .NET pour MMF2.

[ouly]

Meuh non, pas besoin d'extension ou de code en .net, DLL Object suffit !

Bon ce n'est pas à ce code que je pensais en fait. Plutôt au deuxième lien dont le code a l'air assez complet (je n'ai pas étudié en détail le truc donc c'est possible qu'il y ait tout de même des choses qui manquent ou certaines qui sont superflues pour les besoins courants).

Dans ce code il y a 2 problèmes, premièrement la police n'est pas ajoutée de manière permanente :

AddFontResource (http://msdn.microsoft.com/en-us/library/dd183326(VS.85).aspx)
<div class="ubbcode-block"><div class="ubbcode-header">En réponse à:</div><div class="ubbcode-body">This function installs the font only for the current session. <span style="font-weight: bold">When the system restarts, the font will not be present.</span> To have the font installed even after restarting the system, the font must be listed in the registry.</div></div>

deuxièmement il n'y a aucune notification de l'ajout de la police :

<div class="ubbcode-block"><div class="ubbcode-header">En réponse à:</div><div class="ubbcode-body">Any application that adds or removes fonts from the system font table should notify other windows of the change by sending a WM_FONTCHANGE message to all top-level windows in the operating system. The application should send this message by calling the SendMessage function and setting the hwnd parameter to HWND_BROADCAST.</div></div>

Par contre le code est assez court ce qui simplifie les choses pour commencer une transcription de code VB vers MMF [img]<<GRAEMLIN_URL>>/wink.gif[/img]

Edit : le troisième code est intéressant et moins indigeste que le 2ème.

[ouly]

Ne voyant pas de nouveau(x) message(s) je m'inquiète. J'espère n'avoir découragé personne. Ce que je vise est à assister les personnes dans l'apprentissage et non faire le boulot directement.

Bon, on peut partir sur plus simple pour commencer : afficher une boîte de dialogue. La fonction est documentée dans cette page : http://msdn.microsoft.com/en-us/libr...05(VS.85).aspx

Il y a probablement des choses qui sont incompréhensibles mais c'est normal et c'est en essayant que l'on apprend.

<span style="font-style: italic">Note : le site MSDN est plus complet en anglais qu'en français, pensez à choisir la langue avant d'effectuer une recherche...
Note 2 : l'extension MMF 2 s'appelle <span style="font-weight: bold">Dll Object</span>, mais le principe était le même avec l'extension <span style="font-weight: bold">Call Dll</span> pour MMF 1.5.</span>