Tipo de letra

[acertij022]

Muchas gracias por la rapides!!! es justamente lo que estaba buscando

[acertij022]

lamentablemente el codigo no me funciona, al intentar agregar una fuente al crearse elformulario:

AddFontResource('D:\FONTS\FUENTE.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

al ejecutar la 2° linea deja de responder laaplicacion, supongo que queda esperando una respuesta que nunca llega

[radenf]

Estimado acertij022 :

Si sigues las indicaciones que coloqué en el post de referencia y no modificas el código te debería funcionar sin problemas.
Saludos

[acertij022]

Buenos días randef, he colocado como indicas en el post los 2 procedure y lo llamo en el form principal en los eventos que mencionas pero igualmente al ejecutar CargarFuente deja de responder la aplicación al hacer la llamada a sendmessage será que falta colocar una referencia en uses?

Como dato adicional estoy utilizando Delphi 6 con una pc con Windows 7 ejecutando Delphi en modo administrador

[acertij022]

Buscando una solución encontré que otros delphianos tuvieron el mismo problema http://www.clubdelphi.com/foros/showthread.php?t=65723

[radenf]

Estimado acertij022 :

El truco no es de mi creación. Lo obtuve en Trucomania.
Yo lo ocupo en casi todos mis programas y siempre me ha funcionado sin problemas.
Recuerda que debes copiar la fuente que quieres utilizar en la carpeta de tu ejecutable, porque si la llamas y está en otra ubicación obviamente no la va a encontrar.

Salu2

[acertij022]

alguien sabe como instalar una fuente en el sistema sin usar la llamada:

Código Delphi [-]
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)

Si es que a alguien le funciona hacer la llamada me podrían indicar con que versión del entorno realizó la prueba