Открытие документов со шрифтами не установленными в системе

← →
Unknown user © (2004-09-27 10:10) [0]

Как внедрить в файл документа шрифт и устанавливать его при открытии документа, если таковой отсутствует?

← →
Vit@ly © (2004-09-27 10:31) [1]

procedure TForm1.FormCreate(Sender: TObject);
begin
AddFontResource(PChar(ExtractFilePath(ParamStr(0) + "YourFont.TTF")));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
RemoveFontResource(PChar(ExtractFilePath(ParamStr(0) + "YourFont.TTF")));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

Не тестировал

Открытие документов со шрифтами не установленными в системе Найти похожие ветки