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;

 

相关阅读 >>

Delphi 根据特殊符号字符获取字符串前或后的字符

Delphi 在rxrichedit中插入图片的完美解决方法

Delphi 技巧 以相同类名派生一个子类

Delphi 实现php的urlencode编码效果

Delphi获取优盘的id

Delphi异常死亡进程的自动复活

Delphi中控件数组批量赋值

Delphi xe 可用的md5算法

Delphi 解析json生成json

Delphi中initialization和finalization

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 动态加载删除字体