topic-27669

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Como Instalar un Tipo de Letra
Posted: Sat Nov 16, 2013 01:35 PM

Hola a todos:

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

Un saludo.

Carlos.

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

Sistem

Posts: 226

Joined: Sun May 13, 2012 07:52 AM

Re: Como Instalar un Tipo de Letra
Posted: Sun Nov 17, 2013 08:44 AM

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  := &quot;c:\test\teste.ttf&quot;
    cDestino := GetWinDir()+&quot;\fonts\teste.ttf&quot;
    __CopyFile(cOrigem,cDestino)

[]´s

FWH2008 | xHarbour | BCC74 | SQLRDD

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: Como Instalar un Tipo de Letra
Posted: Sun Nov 17, 2013 11:31 AM

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 (fw): Select all Collapse

    
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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

Sistem

Posts: 226

Joined: Sun May 13, 2012 07:52 AM

Re: Como Instalar un Tipo de Letra
Posted: Sun Nov 17, 2013 03:28 PM

colthop see:

viewtopic.php?f=4t=21892p=116733hilit=AddFontResource#p116733

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

&&&&&

FWH2008 | xHarbour | BCC74 | SQLRDD

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: Como Instalar un Tipo de Letra
Posted: Sun Nov 17, 2013 04:00 PM

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

Sistem

Posts: 226

Joined: Sun May 13, 2012 07:52 AM

Re: Como Instalar un Tipo de Letra
Posted: Mon Nov 18, 2013 11:04 AM

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

FWH2008 | xHarbour | BCC74 | SQLRDD

FiveTech Support Forums

Continue the discussion