Installer une police de caractère

[Julien_V.]

Bonjour à tous,

Pour une application j'ai besoin d'une police de caractères particulière.

J'ai suivi les recommandations NI pour qu'elle soit incluse dans l'installeur mais ça ne fonctionne pas, elle n'est pas installée sur l'ordinateur.

Voici le papier diffusé par NI : Lien .

Elle est présente dans le dossier de l'exe mais pas installée dans les "fonts".

Dans l'installeur, dans les destinations, j'ai aussi essayé d'ajouter le dossier [Fonts] et y mettre le fichier, mais sans réussite.

Quelqu'un a une suggestion ? Une idée ?

[Walker34]

J'ai pas testé, mais voici une solution (je pense).

Tu peux créer un script VBS (fichier texte avec extension .vbs) comme cela (source) :

Alternatively you can the following lines of code to suit your needs; save it as a .vbs file and then execute it.

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("<Folder or Share Location>")
Set objFolderItem = objFolder.ParseName("<TTF File Name>")
objFolderItem.InvokeVerb("Install")

Example:

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\Windows\Font")
Set objFolderItem = objFolder.ParseName("Myriad Pro.ttf")
objFolderItem.InvokeVerb("Install")

Ensuite tu peux lancer le script depuis un batch (fichier .bat) en faisant un fichier .bat contenant cette commande :

cscript MonScript.vbs

Ensuite dans l'installeur, dernière section (advanced), tu choisis de lancer le batch (.bat) à la fin de l'installation.

[ben64]

On peut faire ça avec un petit exécutable Labview également. Dans la page Advanced de l'installateur option Run executable at end of installation.

Ben64

[Julien_V.]

@Walker34 : merci, par contre rien qu'à le lancer à la main, ça ne fonctionne pas.

Je n'ai pas de notion en script et VBS donc sans savoir pourquoi ça ne le fait pas.

J'ai juste essayé de changer cette partie avec Font et Fonts mais ça ne donne rien.

J'ai aussi lancé le .bat en admin mais rien non plus.

J'ai aussi supprimé les espaces dans le nom du tff et testé en chemin absolu et relatif.

Set objFolder = objShell.Namespace("C:\Windows\Font")

@ben64 : bonne idée.

Par contre tu fais comment en code LV pour installer un fichier tff ?

En tout cas je suis un peu déçu que la publication de NI ne fonctionne pas chez moi, peut-être que je fais une mauvaise manip ?

L'un de vous pourrait tester voir si ça marche chez lui ?

[Walker34]

Au temps pour moi, c'est vrai que ça ne fonctionne pas... Désolé.

[Julien_V.]

---

@Walker34  a écrit :

Au temps pour moi, c'est vrai que ça ne fonctionne pas... Désolé.

---

Ne le sois pas, au moins on a testé 😉.

As-tu essayé avec la solution de NI ?

[ben64]

Essaie la fonction File Move.

Ben64

[Julien_V.]

---

@ben64  a écrit :

Essaie la fonction File Move.

Ben64

---

J'ai testé, ça ne marche pas, il y a erreur d'autorisation.

[ben64]

tu avais les droits administrateurs sur ton ordi quand tu as essayé?

Edit: essaie en utilisant le vi Set Permissions avant de faire le Move File. Regarde l'aide pour savoir quelle valeur utiliser.

Ben64

[Julien_V.]

Alors ça fonctionnera sur les ordinateurs dont les autorisations sont peu élevées.

J'ai testé sur deux configurations, une aux autorisations normales (là ça marche) et une aux autorisations plus rudes et dans ce cas le VI de définitions des accès pour le dossier des Fonts ne fonctionne pas. Il n'est pas autorisé à modifier les accès.

C'est donc une solution mais pas complète. D'ailleurs il est à noter qu'une fois le fichier copié dans Fonts, il faudra ajouter une clé dans le registre ([HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts]) puis redémarrer l'ordinateur.

Dans mon cas je ne sais pas ce que le client utilisera comme ordinateur et les autorisations sur les dossiers Windows, donc je ne peux pas retenir cette solution.

Merci quand même et bien vu !