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