FoxPro/Visual FoxPro - Instalar font automaticamente?

Hola foxeros, he hecho impresiones con letras que no son muy comunes en los ordenadores y querría que cuando se instalara el programa, éste la instalara automaticamente pero no sé.

¿Cómo se podría instalar directamente una fuente en cualquier sistema de windows?

Si utilizas un generador de instaladores, es seguro que lo hace ... InstallShield lo hace ... Sino puedes hacerlo por código desde VFP utilizando el API de Windows...

AddFontResource y RemoveFontResource
http://www.davphantom.net/consultar.asp?id=81&op=2

David Amador Tapia
WebMaster "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia

No me funciona y lo pongo todo igual. Me devuelve ".T." pero la fuente sigue sin estar instalada. ¿he de hacer algo diferente?

Pruebalo así ...

llSucess = InstallSystemFont("path\filename.TTF")

PROCEDURE InstallSystemFont()
LPARAMETERS lcFontLocFile
LOCAL lnNumFontsAdded

DECLARE INTEGER AddFontResource IN GDI32.DLL ;
STRING @ lpszFileName
DECLARE INTEGER SendMessage IN USER32.DLL ;
INTEGER hWnd, ;
INTEGER Msg, ;
INTEGER wParameter, ;
INTEGER lParameter
#DEFINE HWND_BROADCAST 0xFFFF
#DEFINE WM_FONTCHANGE 0x001D

lnNumFontsAdded=AddFontResource(lcFontLocFile)
IF lnNumFontsAdded > 0
*\\Font added sucessfully, send notification to Windows so apps get updated
=SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0)
RETURN .T.
ELSE
*\\Unable to add font
RETURN .F.
ENDIF
ENDPROC

David Amador Tapia
WebMaster "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia