как get fontname из не установленного шрифта

← →
hero © (2006-07-31 12:15) [0]

я хочу следать смотрелку шрифтов простую, мне понятную, все что находил в инете меня не устраивает, чтобы быстро можно было понять есть в шрифте русский или нет.
Вобчем допустим у меня есть CD с шрифтами и мне нужно посматреть
Делаю так
addfontresource("E:\CoolFont.ttf");
Объект.font.name:= ?;
removefontresource("E:\CoolFont.ttf");
так вот как узнать какое название шрифта ведь название шрифта и имя файла могуть быть разными
Помогите пожалуйста

← →
Rouse_ © (2006-07-31 14:24) [1]

GetFontResourceInfo

← →
hero © (2006-07-31 14:37) [2]

Undeclared identifier: "GetFontResourceInfo"

в хелпе тоже нет

uses ?

← →
easy © (2006-07-31 15:22) [3]

uses yandex;

http://www.megalib.com/books/923/837.htm

← →
vidiv © (2006-07-31 17:12) [4]

AddFontResource, потом нажимай кнопочку Group и смотри функции для работы со шрифтами =)

← →
DprYg © (2006-07-31 20:17) [5]

Вот например загрузка списка шрифтов, доступных на данном компьютере, в ComboBox1 и применение данного шрифта в RichEdit1
ComboBox1.Items := Screen.Fonts; ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(RichEdit1.DefAttributes.Name);
Установка шрифта в RichEdit1 в зависимости от выбора в ComboBox1
RichEdit1.SelAttributes.Name := ComboBox1.Items[ComboBox1.ItemIndex];

Спасибо всем

Отдельное спасибо easy и Rouse_

как get fontname из не установленного шрифта Найти похожие ветки