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