Permite incluir fuentes (.ttf) en el sistema.

Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Function IncluirTTF(Fichero As String) As Boolean
    ' Incluye en el sistema un fichero TTF
    ' Parametros: Fichero ruta completa donde se encuentra el fichero origen
    Dim X As Long
    
    X = AddFontResource(Fichero)
        
    ' La función devuelve :
    ' True : Si todo fue correcto.
    ' False : Si hubo algún problema.
    IncluirTTF = IIf(X = 0, False, True)
End Function

Con esta API podrás incluir automáticamente las fuentes que tu programa usa, para que Windows las reconozca y pueda utilizarlas.

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s