Como Instalar un Tipo de Letra

[colthop]

Hola a todos:

Desearía saber como se puede instalar desde código una fuente TTF.

Un saludo.

Carlos.

[Sistem]

Yo uso Inno Setup:
Source: e:\fwh1308\Multi\fontes\Code128bWin.ttf; DestDir: {fonts}; FontInstall: Code128bWin; Flags: onlyifdoesntexist
Source: e:\fwh1308\Multi\fontes\ean-13.ttf; DestDir: {fonts}; FontInstall: ean-13.ttf; Flags: onlyifdoesntexist

en FiveWin crees que podría funcionar así:

cOrigem := "c:\test\teste.ttf"
cDestino := GetWinDir()+"\fonts\teste.ttf"
__CopyFile(cOrigem,cDestino)

[]´s

[colthop]

Hola Sistem gracias por tu interes:

El Inno Setup es un programa de instalaciones y le pasa lo mismo que al mío que para instalar una fuente es necesario tener permisos de Administrador y por eso no las instala (o creo que es por eso).

Ya he realizado eso que me has puesto y tampoco. Lo único que me ha funcionado es :

Code: Select all  Expand view

   
b = Curdrive() + ":\colthop\ColtHopFont.ttf"
a = GetWindowsDirectory()+"\fonts\ColtHopFont.ttf"
dato = "copy " + b + " " + a + chr(13) + chr(10)
m := fcreate ("letra.bat",0)
fwrite (m,dato)
fclose (m)
ShellExecute(0,"Open","letra.bat",NIL,NIL,1)
 

Con esto creo un archivo LETRA.BAT y lo ejecuto desde dentro de la aplicación pero no copia la fuente pero si ejecuto desde el Explorador de Windows el mismo archivo como Administrador (botón derecho Ejecutar como Administrador) si funciona ya que copia la fuente en la carpeta de Windows.

Podría haber una sentencia que ejecute un archivo con permisos de administrador desde código.

Un saludo

Carlos

[Sistem]

colthop see:
viewtopic.php?f=4&t=21892&p=116733&hilit=AddFontResource#p116733

viewtopic.php?f=6&t=9789&hilit=AddFontResource

[colthop]

Hola de nuevo Sistem:

Lo que hace AddFontResource() es permitirte usar una fuente que no esté en Windows\Fonts pero no la instala que es lo que yo quiero.

No obstante gracias por tu interés.

Carlos

[Sistem]

colthop

utilizando VBScript
probado con windows8.1 64 bits OK

testVBSc.vbs
Const FONTS = &H14&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(FONTS)
objFolder.CopyHere "e:\siav\ean-13.ttf"

fivewin
utilizar ShellExecute(.....,"testVBSc.vbs",..........

fonte => http://blogs.technet.com/b/heyscripting ... cript.aspx
[]´s