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 测试 tstreamwriter、tstreamreader

decodedate：从一个tdatetime变量中提取年、月、日数值

Delphi获得系统当前时间日期和格式化时间

Delphi 用cxgrid显示联合查询数据和更改数据

Delphi xe 遍历指定数据库，清空各表记录

Delphi 本地数据库备份与还原(Delphi)

Delphi blockread和blockwrite读写文件

Delphi 封装的tidhttp get post 请求

Delphi 不用控件用函数实现发email

Delphi api 函数: getcursorpos 与转换

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

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