Achei um exemplo que carrega e instala a partir de um arquivo de resource.
procedure TForm1.FormCreate(Sender: TObject);
var
ResStream : TResourceStream;
sFileName : string;
begin
sFileName:=ExtractFilePath(Application.ExeName)+'SWISFONT.TTF';
ResStream:=nil;
try
ResStream:=TResourceStream.Create(hInstance, 'Swisfont', RT_RCDATA);
try
ResStream.SaveToFile(sFileName);
except
on E:EFCreateError Do ShowMessage(E.Message);
end;
finally
ResStream.Free;
end;
AddFontResource(PChar(sFileName));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
sFile:string;
begin
sFile:=ExtractFilePath(Application.ExeName)+'SWISFONT.TTF';
if FileExists(sFile) then
begin
RemoveFontResource(PChar(sFile));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
DeleteFile(sFile);
end;
end;
Em 2 de junho de 2010 08:10, Fellipe Henrique <felli...@gmail.com> escreveu:
> Vixi...
>
> será que tem como embutir ela? no RES e instalar ela no windows
> automaticamente, caso nao exista? Porque ficar lembrando de levar as fontes
> é muito complicado.. rsrs
>
> []s
>
> Em 1 de junho de 2010 22:46, Marcelo <leite_rom...@yahoo.com.br> escreveu:
>
> >
> >
> > a experiencia que tive aqui na empresa era que nao embute não, tinhamos
> um
> > boleto que o codigo de barras era uma fonte, se não tivesse a fonte
> > instalada no cliente não saia nada.
> >
> > ________________________________
> > De: Fellipe Henrique <felli...@gmail.com <fellipeh%40gmail.com>>
> > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> > Enviadas: Terça-feira, 1 de Junho de 2010 21:09:02
> > Assunto: [delphi-br] Ao compilar um programa em delphi, as fontes
> > utilizadas vai junto?
> >
> >
> > Amigos, utilizamos algumas fontes diferentes em alguns relatórios, e até
> em
> > telas. Eis que surgiu uma dúvida, devo copiar o arquivo TTF e instalar no
> > windows do cliente, ou o delphi ao compilar o executável "embute" nele,
> as
> > fontes?
> >
> > Att.
> >
> > --
> > _________________________________
> > T.·.F.·.A.·.
> > Fellipe Henrique
> > http://blogs.digitumsoft.com.br/fellipeh
> > ----------------------------------------------------------
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
>
>
> --
> _________________________________
> T.·.F.·.A.·.
> Fellipe Henrique
> http://blogs.digitumsoft.com.br/fellipeh
>
> -------------------------------------------------------------------------------
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> ------------------------------------
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
