Ver Mensaje Individual
  #2  
Antiguo 16-07-2003
Avatar de madman
madman madman is offline
Miembro
 
Registrado: may 2003
Ubicación: Nayarit, México
Posts: 242
Reputación: 22
madman Va por buen camino
Sacado de Trucomania:

Código:
Para cargarlo, (por ejemplo en el evento OnCreate de tu form):

    procedure TForm1.FormCreate(Sender: TObject);
    begin 
      AddFontResource('c:\FONTS\FUENTE.TTF');
      SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
    end; 
 
 
Y al salir de tu aplicación, lo liberas con:
 
    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
    begin 
      RemoveFontResource('D:\FONTS\FUENTE.TTF');
      SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
    end;
Ademas creo que se puede instalar la fuente desde el InstallShield, nada mas dandole la ruta del FontsFolder (InstallShield Express 4) donde quieres guardar las fuentes que quieras.

Quise adjuntar la imagen, lo he intentado varias veces y nada, pero no puedo. Por eso te pongo el link a esta imagen:

Imagen
__________________
Guía de Estilo.

Última edición por madman fecha: 16-07-2003 a las 18:33:31.
Responder Con Cita