[Gakuro]

Помогите реализовать: надо проверить наличие определённого шрифта в системе и если его нет, то установить (шрифт с собой).

[Alegun]

Код:

function sfg(ds: string): boolean;
var
 i: integer;
begin
 Result:= false;
 for i := 0 to Screen.Fonts.Count-1 do
  if Screen.Fonts[i] = ds then Result:= true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 if not sfg('myfont') then AddFontResource('myfont.ttf');
end;

[Gakuro]

Спасибо, Alegum! Поясню свой вопрос: есть специфичные шрифты (например с буквой "ять") и есть книги, использующие такие шрифты.

[Alegun]

Ну и? В "книжках" может быть сноска на используемый шрифт, или даже как в epub-формате (посути это архивированные html странички) шрифт в ресурсах лежит, там и картинки хранятся, смотрим какой нужон и в зависимости от наличия грузим

[Gakuro]

Спасибо, всё ОК. Загрузил сразу архив шрифтов и все дела!