Discussion :

[thierrybatlle]

Bonjour à tous,

J'essaye en vain d'installer des polices sous Windows 7 et 8 avec un bout de code que j'ai trouvé.

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
lpFileName1 	est une chaîne ASCIIZ sur 255 =  "Blenda Script.otf"
DirectoryFonts 	est chaîne=SysRep(srFontes)
nHWnd 			est un entier=Handle()
retval 			est un entier
nHWND_BROADCAST est un entier=65535 //&HFFFF en hexadécimal
 
nIdFic1 est un entier= fOuvre(DirectoryFonts+"\"+lpFileName1,foLecture)
SI nIdFic1=-1 ALORS
	SI PAS fFichierExiste(DirectoryFonts+"\"+lpFileName1) ALORS
		SI fCopieFichier(fRepExe()+"\fonts\"+lpFileName1,DirectoryFonts+"\"+lpFileName1) ALORS
			retval=AppelDLL32("gdi32","AddFontResourceA",&lpFileName1)
			SI retval<>0 ALORS
				SendMessage ( nHWND_BROADCAST , nHWnd , 0 , 0 )
			FIN
		FIN
	FIN
FIN

Si quelqu'un a une idée elle est la bienvenue.

Merci

[michel.souris]

J'utilise la même API et je n'envoie pas de handle en paramètre mais une constante Windows :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
WM_FONTCHANGE est un entier = 0x001D 
SendMessage ( HWND_BROADCAST , WM_FONTCHANGE , 0 , 0 )

[Lo²]

Bonjour à tous,

Je sais que la discussion commence à dater mais voici ma petite contribution grâce à la grande aide de mes compères ci-dessus

Donc pour ma part, la problématique que je rencontre est que les sessions Windows ne sont pas forcément administrateur et donc l'accès au dossier Font n'est pas accessible en écriture.
Donc la fonction AddFontResourceA permet de monter en mémoire les font sans les installer. Elles sont ensuite décharger à la prochaine ouverture de session.
J'ai donc tout simplement enlevé toutes les parties testant la présence ou l'ouverture du fichier à tester.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
lpFileName1 	est une chaîne ASCIIZ sur 255 =  "Blenda Script.otf"
retval 			est un entier
nHWND_BROADCAST est un entier=65535 //&HFFFF en hexadécimal
 
retval=AppelDLL32("gdi32","AddFontResourceA",&lpFileName1)
SI retval<>0 ALORS
	SendMessage ( nHWND_BROADCAST , nHWnd , 0 , 0 )
FIN

[Lo²]

Bonjour à tous,

Je rencontre quelques soucis en production pour l'utilisation du code ci-dessus.
Sur certains postes, Windows 10, le chargement de la police bloque à la ligne 6, donc mon appli ne répond plus, et pas de message d'erreur.

Avez-vous déjà rencontré ce problème ?

[frenchsting]

Hello Lo²,
2 questions à 2 balles :
- Le type de chaîne requis est bien du ASCIIZ ?
- La taille est de 255, mais ta chaîne fait beaucoup moins. Besoin de la réduire ?

[Lo²]

Hello Frenchsting,

Il ne s'agit pas de question à 2 balles
En effet, ma chaîne fait moins et je peux donc la réduire.

Tu penses que ça vient de là ?

[frenchsting]

Je n'en sais rien, mais qui ne tente rien n'a rien

Et sur le type asciiZ ?

[Lo²]

C'est pas faux

Pour le type asciiz, je ne me suis pas posé de question, c'est du recopiage de code.
Il me semble avoir vu de l'Unicode sur quelques autres exemples.

Je vais essayer tout ça.

[Lo²]

Le changement en Unicode ou la réduction de la taille de la chaîne n'ont pas donné de résultat probant

D'autres idées ?

[frenchsting]

Chaine ANSI ?

[JeAn-PhI]

bonjour,

voici comment je procède et qui fonctionne, testez et dites moi si cela solutionne votre problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
PROCEDURE installFonts(_bInstall est un booléen=Faux)
 
lRet                                    est un entier
szPathFont2Install                	est une chaîne
szNameFont                              est une chaîne
HWND_BROADCAST                         	est un entier
//WM_FONTCHANGE                    		est un entier
i					est un entier
 
szNameFont = "LeNomDeMaFont.ttf"
 
HWND_BROADCAST = 0xffff
//WM_FONTCHANGE  = 0x001D
 
szPathFont2Install = fRepExe()+[fSep()]+szNameFont
 
SI fFichierExiste(szPathFont2Install)
	TANTQUE API("gdi32.dll","RemoveFontResourceA",&szPathFont2Install)
		i++
		SI i > 50 ALORS SORTIR
	FIN
 
	SI _bInstall ALORS
		lRet = API("gdi32.dll","AddFontResourceA",&szPathFont2Install)
		SI lRet = 0 ALORS
			Erreur(ErreurInfo())
			RETOUR
		FIN
//		SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0)
	FIN
FIN

le "RemoveFontResourceA" est là en cas de fermeture du logiciel pour décharger les fonts installées car à force de faire un "AddFontResourceA" cela fait saturé la machine

[Lo²]

Bonjour JeAn-PhI,

Ca fontionne nickel.
Merci encore.