Installation de police [Résolu]

cs_windsurfer 20 Messages postés vendredi 30 janvier 2004Date d'inscription 26 juin 2008 Dernière intervention - 30 janv. 2008 à 13:47 - Dernière réponse : cs_windsurfer 20 Messages postés vendredi 30 janvier 2004Date d'inscription 26 juin 2008 Dernière intervention
- 31 janv. 2008 à 17:34
salut

j'ai coder un programme, fprime disponible sur http:\mathatoto.chez-alice.fr.
Ce prog nécessite l'installation d'une police de caractère fprime.ttf qui devrait se copier automatiquement dans windows\fonts à l'installation de fprime.
J'ai des pb pour installer cette police depuis mon logiciel :

Parfois ça marche sans pb et la police est dispo immédiatement.
Parfois il faut redémarrer le système pour que la police soit prise en compte.
Parfois la police ne se copie pas du tout dans windows\fonts\

Y-a-t-il une technique infaïble ?

toto le windsurfer
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
WhiteHippo 1270 Messages postés samedi 14 août 2004Date d'inscription 5 avril 2012 Dernière intervention - 31 janv. 2008 à 17:01
3
Merci
Bonjour

Je ne sais pas si cela va te convenir, mais au lieu d'installer la police TTF dans le repertoire de Windows, tu peux juste déclarer au système que tu as besoin de la police située dans tel repertoire :

procedure TForm1.FormCreate(Sender: TObject) ;
begin
  // On indique où se situe la police TTF à déclarer
  AddFontResource('X:\MonReperoire\MonFichier.TTF') ;

  // On informe le système qu'il doit mettre à jour ses polices
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;

procedure TForm1.FormDestroy(Sender: TObject; var Action: TCloseAction);
begin
  // On indique où se situe la police TTF à "oublier"
  RemoveFontResource('X:\MonReperoire\MonFichier.TTF');

  // On informe le système qu'il doit mettre à jour ses polices
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;

Si toutefois, tu souhaites toujours installer la police dans le reperoire fonts, il faut au préalable, vérifier que le fichier n'est pas déjà présent, puis ensuite appliquer de la même façon le code du FormCreate :

  AddFontResource('C:\WIndows\Fonts\FFrime.ttf') ;
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;

Cordialement.
<hr />"L'imagination est plus importante que le savoir." Albert Einstein

Merci WhiteHippo 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

Commenter la réponse de WhiteHippo
cs_windsurfer 20 Messages postés vendredi 30 janvier 2004Date d'inscription 26 juin 2008 Dernière intervention - 31 janv. 2008 à 17:34
0
Merci
formidable merci beaucoup

toto le windsurfer
Commenter la réponse de cs_windsurfer

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.