| Автор
| Сообщение |
|
|
|
Цитата |
|
можно ли как нибудь узнать имя шрифта, зная полный путь к фаилу TTF??? Сам некак не смог разобратся с етим вопросом.  |
|
| В начало |
|
 |
|
|
 |
|
|
|
Цитата |
|
| delphi: | 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;
|
Использование:
| delphi: | GetFontName('C:\MyFont.ttf');
|
|
|
| В начало |
|
 |
|