delphi 指定的文件里增加字体资源到系统字体表

procedure sys_AddFont(fontFileName: string);

begin

  AddFontResource(Pchar(fontFileName));

  SendMessage(Application.Handle, WM_FONTCHANGE, 0, 0);

end;

procedure sys_RemoveFont(fontFileName: string);

begin

  RemoveFontResource(Pchar(fontFileName));

  SendMessage(Application.Handle, WM_FONTCHANGE, 0, 0);

end;