Instalar fontes do Windows

[alaminojunior]

Boa tarde !

Procurei e não encontrei por aqui.
Algum dos colegas sabe de alguma rotina para instalação de fontes do Windows ?

Em nossos sistemas, utilizamos algumas fontes que não fazem parte no Windows, e temos que instalar manualmente todas as vezes (quando não esquecemos) !

Gostaria de automatizar esta tarefa na instalação dos softwares.

Agradeço desde já.

[janio]

AddFont("DS-DIGI.TTF")

Código: Selecionar todos

Function AddFont(font)
Local cFont:=DiskName()+":\"+CurDir()+"\"+font

WAPI_AddFontResourceEx( cFont )

Return

[alaminojunior]

Essa função me parece ser do Harbour.

Eu preciso para xHarbour.

[Jairo Maia]

Olá Alamino,

O xHarbour tem a AddFont() como o Jânio colocou acima, mas veja também se esse link ajuda: AddFontResource