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 fmx 同时使用longtap和tap

Delphi锁定鼠标 模拟左右键 静止一会自动隐藏鼠标

Delphi idhttp post 提交 json

Delphi 多种方法查找窗口句柄

建议大家使用fastmm

Delphi下载程序并且urldownloadtofile的进度提示

Delphi数组之菜鸟篇

Delphi中根据程序名称判断是否多开

Delphi中的unicode转换

Delphi 获取系统mydocuments文件夹路径

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

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