关于Delphi应用自带的字体,AddFontResource

关于Delphi使用自带的字体,AddFontResource.

AddFontResource('字体的文件名')
//SendMessage(.........)

{Test OK}
{Windows7 + SP1, Delphi XE2 UP4 + Hotfix1 + IDE FixPack 4.9.1}
var
  i: integer;
begin
  i := AddFontResource(Pchar(ExtractFilePath(ParamStr(0)) + '禹卫硬笔常规体.ttf'));
  { 打开你的字体文件}
  ShowMessage(IntToStr(i));
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); { 通知系统更新字体消息}
end;

var
  B: Boolean;
begin
  B := RemoveFontResource(Pchar(ExtractFilePath(ParamStr(0)) + '禹卫硬笔常规体.ttf'));
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); { 同上}
end;