Всем день добрый. Мне по некоторой специфике работы нужно знать как выглядят все кириллические шрифты в windows установленые на моем компе, по-этому есть такая задумка через foxpro сгенерировать документ, в котором будет построчно имя шрифта и его вид. Если кто-то с чем то подобным работал, то подскажите плиз, как это сделать. В принципе общую суть проблемы улавливаю, а вот как получить список шрифтов и именно кириллических, вот тут то и есть некоторые затруднения??? Так что, кто чем сможет посоветуйте пожалуйста.

ПогодинAFONT(ArrayName [, cFontName [, nFontSize | nFontCharSet [, nFlags]]]) не подойдет ?

в принципе подойдет, но она не дает понимания, что это шрифт - кириллица, а вот как это определить???

Ок. Спасибо за подсказку.

А ларчик то оказывается легко открывался...

#define cr chr(13)
oword=create('word.application')
oword.documents.add()
oword.caption='Мой Word'
oWordRef = GetObject('','word.basic')
AFONT(allfont)
n=ALEN(allfont)
FOR i=1 TO n
IF AFONT(acurfont,allfont(i),-1,1)
IF ASCAN(acurfont,204)>0
owordRef.insert(cr)
oWordRef.Font("Times New Roman",16)
oWordRef.Bold
oWordRef.Italic(0)
oWordRef.CenterPara
oWordRef.Underline
oWordRef.CharColor(0)
owordRef.insert(ALLTRIM(allfont(i)))
owordRef.insert(cr)
oWordRef.Font(allfont(i),14)
owordRef.insert('абвгдеёжзийклмнопрстуфхцчшщэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЭЮЯ')
owordRef.insert(cr)
ENDIF
ENDIF
ENDFOR
oword.visible= .t.

Да закрыта. Спасибо за подсказку.