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

 

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.

 

 

posted on 2010-07-15 08:24  思想。生活。网络  阅读(411)  评论(0)  编辑  收藏  举报

导航