Comment déclarer une police windows

Après avoir copié le fichier dans "C:\windows\fonts" lancer le code suivant pour déclarer la police.

strPath est une chaîne = fSélecteur("", "", "Sélectionnez un fichier...", 
"Tous fichiers (*.*)"+TAB+"*.*", "*.*", fselOuvre+fselExiste)
SI strPath <> "" ALORS
   strPath += Caract(0)
   API("Gdi32","AddFontResourceA",&strPath)
FIN