Собственно да.
У кого-то есть информация по поводу реализации загрузки шрифтов для Windows7?
А то пробую что-то сваять наподобие этого (солянка из интернета):
fontsCount := 0;
if AddFontMemResourceEx(resStream.Memory, resStream.Size, nil , @fontsCount) <> 0 then
begin
fontHandle := CreateFont(0, 0, 0, 0, FW_NORMAL, 0, 0, 0, DEFAULT_CHARSET,
OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH,
PChar(fileName));
if fontHandle <> 0 then
begin
Result := True;
SelectObject(GetWindowDC(ApplicationHWnd), fontHandle);
end;
end;
Но что-то никак. Вроде везде всё ок, но программа шрифты не подтягивает.