Embeber font en executable

[ecfisa]

Hola Caroso.

Podes incluir el font como recurso, ejemplo:

Archivo font.rc

MFONT CORBEL "C:\Windows\Fonts\corbel.ttf"

Delphi:

Código Delphi [-]
...
{$R font.res}
procedure TForm1.FormCreate(Sender: TObject);
begin
  with TResourceStream.Create(hInstance, 'MFONT', 'CORBEL') do
  try
    SavetoFile('Corbel.ttf');
    AddFontResource('Corbel.ttf');
    SendMessage(HWND_BROADCAST, WM_FONTCHANGE,0,0);
  finally
    Free;
  end;
  Label1.Font.Charset := SYMBOL_CHARSET;
  Label1.Font.Size    := 13;
  Label1.Font.Name    :='Corbel';
end;

Encontrarás variaciones de este código pegando una recorrida en la web, pero en esencia es la idea...

Saludos.

[Caroso]

muchísimas gracias ecfisa por tu respuesta... ahora lo pruebo...

saludos...

[ecfisa]

Hola Caroso.

Me olvidé un detalle...

Para crear el archivo .res, desde el símbolo de sistema:

C:\RUTA\brc32 -r -v font.rc

Donde RUTA dependerá de la versión de Delphi pero estará en ...\bin.
(Particularmente me queda mas cómodo y menos propenso a errores copiar y pegar el archivo brc32.exe en el directorio de trabajo del proyecto y así evitar la larguísima ruta)

Saludos.