如何使用自己的字体文件（不安装）？

begin 
  AddFontResource(Pchar(ExtractFilePath(ParamStr(0))+'NAME DER SCHRIFFT')); //打开你的字体文件
  SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0); //通知系统更新字体消息

  Application....//使用之
  
  RemoveFontResource(pchar(ExtractFilePath(ParamStr(0))+'NAME DER SCHRIFFT')); 
  SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0); //同上
end.