Вот пример кода:

Код

AddFontResourceEx(FileName, FR_PRIVATE, 0);  Image1.Picture.Bitmap.Canvas.Font.Name := ???;  Image1.Picture.Bitmap.Canvas.Font.Size := 14;  Image1.Picture.Bitmap.Canvas.TextOut(0, 0, 'ABC abc 123 АБВ абв');  RemoveFontResourceEx(FileName, FR_PRIVATE, 0);

Во второй строке надо указать имя фонта (но не имя файла)... Как его узнать ?
Я заранее не знаю имя шрифта...

Приходит на ум - сделать список шрифтов до добавления и после и сравнить... дегенератизм но похоже в MS специально сделали поддержку шрифтов так чтоб не добраться...

Но как-то же fontview.exe показывает шрифт ? Посмотрел в импорте - есть AddFontResource, но никаких FontEnum*'ов нет... Есть и RemoveFontResource... И самое интересное - есть какая-то GetFontResourceInfo, описание которой специально опустили в MSDN'е (что-то они там с авторскими правами закрутили...)... Где бы надыбать описаловку этой функции ?

p0s0l, по-моему, FontView работает через EnumFont, или, скорее, через EnumFontFamilies. ему то не надо знать конкретное имя.

может, тебе выделить загрузку шрифтов отдельно, потом генерить их список, и уже потом пусть юзверь выбирает из этого списка имя и этим шрифтом рисует?

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

x77, у меня есть 4000 шрифтов, и надо найти среди них покрасивее. Т.к. винда английская FontView в примере пишет только английскими буквами. А мне надо русские шрифты... ACDSEE пишет "Font" - тоже не то...
Но проблему уже решил двумя способами:
1) в FontView поменял выводимую строку на свою
2) Искал в инете инфу об GetFontResourceInfo - находились только аналогичные вопросы в других форумах (и почему-то без ответов)... Методом дебагера и тыка выяснил кол-во и назначение параметров этой функции. Мало ли, кому в будущем пригодится:
function GetFontResourceInfoW (FontPath : PWideChar; var BufSize : DWORD; FontName : PWideChar; dwFlags : DWORD) : DWORD; stdcall; external 'GDI32.DLL';
1-ый параметр - указатель на Wide-строку, содержащую путь к файлу шрифта;
2-ой параметр - указатель на DWORD-переменную, содержащую размер выходного буфера. После выполнения функции в этой переменной будет содержаться необходимая длина буфера;
3-ий параметр - указатель на буфер, в случае успешного выполнения будет содержать Wide-строку имени шрифта;
4-ый параметр - какие-то флаги, если рыться в функции GetFontResourceInfoW особым случаем является когда dwFlags=4, но зачем это, я так и не понял - в результате будет возвращен тот же путь к файлу; ну а для получения имени шрифта флаг должен быть равен 1.

Код

function GetFontName (FontFileA : PChar) : String; type  TGetFontResourceInfoW = function (FontPath : PWideChar; var BufSize : DWORD; FontName : PWideChar; dwFlags : DWORD) : DWORD; stdcall; var  GetFontResourceInfoW : TGetFontResourceInfoW;  FontFileW : PWideChar;  FontNameW : PWideChar;  FontFileWSize, FontNameSize : DWORD; begin  Result := '';  GetFontResourceInfoW := GetProcAddress(GetModuleHandle('gdi32.dll'), 'GetFontResourceInfoW');  if @GetFontResourceInfoW = nil then Exit;  if AddFontResource(FontFileA) = 0 then Exit;  FontFileWSize := (Length(FontFileA)+1)*2;  GetMem(FontFileW, FontFileWSize);  StringToWideChar(FontFileA, FontFileW, FontFileWSize);  FontNameSize := 0;  FontNameW := nil;  GetFontResourceInfoW (FontFileW, FontNameSize, FontNameW, 1);  GetMem (FontNameW, FontNameSize);  FontNameW^ := #0; // на случай какого-нибудь облома  GetFontResourceInfoW (FontFileW, FontNameSize, FontNameW, 1);  Result := FontNameW;  FreeMem (FontFileW);  FreeMem (FontNameW);  RemoveFontResource(FontFileA); end;

Пример вызова: GetFontName('C:\MyFonts\FUTURA.TTF') - возвратит 'FuturaEugenia'.

PS: Всё бы хорошо, но эта функция хоть и есть в Win9x, только её там вызывать нельзя - пишет "This function is only valid in Windows NT mode."...
FontView в Win9x использует EnumFontFamiliesEx (видимо по предложенному Vit'ом и x77 способу)...
FontView в WinNT использует GetFontResourceInfo (в импорте вообще нет EnumFontFamiliesEx или других Enum*)...

Ну ты определяй тип винды. Если 9х - то юзай EnumFontFamiliesEx, а если НТ, то GetFontResourceInfo.
Или я не то понял?

Да это и ёжику понятно -Сергей-, Посол просто сетует на то, что в Win9x эта функция неработает.

p0s0l, dwFlgs

Specifies the type of resouce information to return. This parameter can be one of the following values.
Value    Meaning
QFR_0
0    DWORD or LPVOID
unknown
QFR_DESCRIPTION
1    The function provides a string that an NT-based operating system will use to describe the font file. A null-terminated Unicode string is written to the buffer pointed to by lpBuffer.
QFR_LOGFONT
2    Array of LOGFONT
QFR_PDEV
3    PDEV ?
QFR_FONTFILE
4    scalable font file name
QFR_5
5    DWORD
Windows XP: Always returns 0

Спасибо большое за невероятно полезную функцию!


Это сообщение отредактировал(а) Igor_thief - 7.8.2008, 22:03