agregar fonts

[radenf]

Estimado Celta:

Una forma de incluir tu fuente en el ejecutable y que por lo tanto se muestre en cualquier pc, sin tener que instalarla es la siguiente:

Incluye en tu Form principal el siguiente código:

Código Delphi [-]
procedure CargarFuente( sFuente: String );
begin
AddFontResource( PChar( ExtractFilePath( Application.ExeName ) + sFuente ) );
SendMessage( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
end;

procedure EliminarFuente( sFuente: String );
begin
RemoveFontResource( PChar( ExtractFilePath( Application.ExeName ) + sFuente ) );
SendMessage( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
end;

y en los eventos FormCreate y FormDestroy colocas este código:

Código Delphi [-]
procedure TFormPrincipal.FormCreate(Sender: TObject);
begin
CargarFuente( 'Dungeon.ttf' );
Label1.Font.Name := 'Dungeon';

procedure TFormPrincipal.FormDestroy(Sender: TObject);
begin
EliminarFuente( 'Dungeon.ttf' );
end;

Este ejemplo es para cargar la fuente Dungeon, que debes incluir en la carpeta de instalación de tu ejecutable, para que aparezca en el Label1. Puedes colocar cualquier fuente para que la utilize cualquier componente, definiéndola en el evento FormCreate.
Espero que te sirva

Salu2