Estimado
Ruben_21:
Puedes utilizar cualquier fuente en tus programas aunque los PC en los que los instalas no tengan dicha fuente. Te pongo el código para hacer que tus programas dispongan de la fuente que tu quieras.
Este ejemplo es para usar la fuente Dungeon.ttf en un Button1.
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;
procedure TuForm.FormCreate(Sender: TObject);
begin
CargarFuente( 'Dungeon.ttf' );
Button1.Font.Name := 'Dungeon';
end;
procedure Form1.FormDestroy(Sender: TObject);
begin
EliminarFuente( 'Dungeon.ttf' );
end;
La fuente que vayas a utilizar debes incorporarla en la carpeta donde se instala tu programa, mediante su instalador.
Saludos y ojalá te sirva