Подскажите, пожалуйста,
можно ли как-то в модуле проверить в системе установку нужного шрифта,
чтобы написать условие, типа

Если Шрифт (Такой-то) имеется Тогда
ИИИ=ССС
ИНаче
ИИИ=ТТТ
КОнецЕсли

скриптами стопудово можно вытянуть из ОС.
также посмотри в торону формекса - там есть возможность получения шрифта

спс, угу, юзаю формекс, надо глянуть, что там

все как всегда просто... используем ФС.СуществуетФайл()

ну, как бы одно это не гарантирует.
ещё есть HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts

ну, да... надо знать еще папку.... в висте это c:\windows\fonts
а где в других ОС - может и отличаться от этого пути

А как использовать реестровый регистр?

Моя проблема:
я использую астрологический шрифт, который для лиц мужескаго полу выводит значек Марса, для жен - венеру...
если шрифт отсутствует в системе, то выводится какая-то буква обучного шрифта, что не айс :-))
поэтому и хотелось бы, чтобы если шрифт установлен, то марс или венера, а если нет, то муж или Жен ))

(6) В конфу (или в обработку, что там у тебя) добавить две небольшие картинки и их выводить не ?

(3) автор не знаеит что наличие файла еще не значит что фонт установлен в системе

автор знает, конечно, ну, это как вариант для начала...
и в моем случае, если не будет установлен, то не будет при такой команде вылазить абракадабра, а будет - муж или жен...
Поэтому и ищу более правильный способ

Это че, 1С уже и до астрологов, магов и чародеев добралась :)?

(10) не, наоборот, они до неё добрались :)

(11) Ну слава богу, наконец-то появится та самая волшебная кнопка ::).

(12) сама кнопка появилась уже давно. просто она станет _реально работать_ )))

Вообще-то,если хочется чего-то узнать о системе,то нужно через wmi спросить у неё - она всё подробно про себя расскажет.

(5) c:\windows\fonts у висты, семерки и хорька одинаковы. Не думаю, что база будет юзаться на яблоке или линуксе. Проблема в основном здесь с разделом (буквой) установки оси - есть такие ... которые умудряются установить ось на D или E разделы. Но и это решаемо.
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion
В этой ветке есть ключ SystemRoot. Там написан путь системы. Дописали \fonts и получили путь шрифтов.
А дальше, 1С++ есть? Работа с реестром через него.

(15) Переменная окружения windir или systemroot говорят, где живёт директория Windows - к ней нужно добавить только Fonts.

(16) тоже вариант

(17) Просто в реестре пути могут поменяться - скоро Windows 8 выйдет.
А вот переменные окружения как-то менять нехорошо, тем более, что они для того и созданы, чтобы процесс мог легко узнать, где находится системная директория без лишних обращений к системе.
Насколько я помню, WScript.Shell позволяет заглянуть в переменные окружения.
sh=CreateObject("WScript.Shell")
Fonts=sh.ExpandEnvironmentStrings("%SYSTEMROOT%")+"\Fonts"

(18) ну на Windows 8 честно говоря не обращал внимания, да и не разглядывал ее пока еще. Хотя и не факт, что в Windows 8 шрифты лежат в "\Fonts".

Может куда проще ФС.WindowsКаталог()

(20) Можно, только даже наличие файла в указанной директории не гарантирует, что шрифт будет доступен.
P.S. а файл-то и переименовать можно.

(21) Так я про что в (15) и говорил: "А дальше, 1С++ есть? Работа с реестром через него."

(22) В реестре тоже не факт, что все шрифты перечислены.
Есть кеш шрифтов - вот там должно быть всё.

(23) ну раз в реестре нет шрифта, разве он может быть зарегистрирован?

Перебрать все шрифты позволяет GDI-функция EnumFontFamilies.

(25) ну, это уже к автору

(26) Просто эта функция действительно даёт ответ на то, какие шрифты установлены и будут доступны вашему приложению. Как известно, 1С 7.7 - не Unicode приложение, и часть шрифтов может работать не так, как надо.