Discussion :

[dacid]

Bonjour à tous,

Voilà, le titre est parlant.
En bref, j'aimerais que mon appli installe une police sur le poste qui l'utilise, mais je n'ai pas du tout l'idée de la config de ce poste, sinon que c'est un Windows.

J'ai trouvé un sujet qui en parlait, mais ça me semble bien compliqué pour ce qui peut se résumer à une copie de fichier.
http://www.developpez.net/forums/d43...ce-sous-vista/

En fait, plusieurs problèmes se posent:
- Vérifier si la police est déjà installée (est ce qu'elle est renommée quand elle est installée ?).
- Gérer toutes les extensions de polices (TTF, PFB, pfm, ... Si possible).
- S'assurer que l'installation s'est bien faite (apparament, Vista pose problème...).

Merci d'avance.

[dacid]

J'ai trouvé un truc extra (sur un forum concurrent ):

Au lieu d'installer la police TTF dans le répertoire de Windows, on peut juste déclarer au système qu'on as besoin de la police située dans tel répertoire :

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
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;

http://www.chami.com/tips/delphi/010297D.html

Est ce que quelqu'un peut me dire si c'est compatible Vista ?

[dacid]

CA Y EST !!!

J'ai eureka comment trouver si une police est installée.
Il suffit de regarder si elle est présente dans la liste des polices locales.

Et comment qu'on arrive à récupérer les polices locales ?

Ca m'a prit du temps de trouver ça (bon, je n'ai pas fait que ça non plus ).


Attention...

Roulements de tambours....

Code :

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

Screen.Fonts

Donc il suffit de faire un:

Code :

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

if Screen.Fonts.IndexOf('Arial')>=0 then ShowMessage('Existe !');

Voilou !