Amigos,
驴C贸mo es posible saberlo? por favor.
Mil gracias 
.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour array con todas las fuentes de Windows
Buenas tardes
En la clave del registro
Se encuentran detalladas todas las Fonts instaladas en el equipo
Tendr铆amos que hacer una funcion que las lea todas, no se si es posible.
Espero te sirva de algo
Saludos
En la clave del registro
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts]
Se encuentran detalladas todas las Fonts instaladas en el equipo
Tendr铆amos que hacer una funcion que las lea todas, no se si es posible.
Espero te sirva de algo
Saludos
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo
El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo
El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Hola...
Yo sin pensar demasiado har铆a un dir a un archivo del directorio donde est谩n todas las fuentes luego al archivo generado con un MemoRead lo leo y cargo el array que quiero.
Espero te sirva la idea.
Saludos,
Ojeda Esteban Eduardo.
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
Pues claro, no habia caido
Saludos
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo
El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo
El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Aqu铆 dejo una funci贸n as铆 rapidita que escrib铆...
Obviamente se puede tunear un poco con la variable correspondiente al Path de Windows etc...
Probando en mi PC con Windows 7 Pro me dio 639 fuentes en el array.
Espero les sirva.
Saludos,
Obviamente se puede tunear un poco con la variable correspondiente al Path de Windows etc...
Probando en mi PC con Windows 7 Pro me dio 639 fuentes en el array.
// PRUEBA DE CARGAR LAS FUENTES DE WINDOWS EN UN ARRAY //
Function PruebaFuentes()
Local aFuentes:={}
WAITRUN( "cmd.exe /c 聽dir /b c:\windows\fonts\ > C:\fuentesE.txt" , .t.)
cTexto 聽 :=MEMOREAD( "C:\fuentesE.txt" )
nLinea 聽 :=MLCOUNT(cTexto)
FOR Q=1 TO nLinea
聽 聽cLinea:=MEMOLINE(cTexto,100,Q)
聽 聽AADD(aFuentes,ALLTRIM(cLinea))
NEXT
MsgInfo(STR(LEN(aFuentes)),"Cantidad de fuentes")
Return nil
//Espero les sirva.
Saludos,
Ojeda Esteban Eduardo.
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
Eduardo
Gracias por tu tiempo
Da gusto ver como a pesar de los tiempos que corren sigue habiendo personas solidarias y que siguen teniendo ganas de ayudar, por decirlo de alguna forma.
Saludos
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo
El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo
El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces