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 sqlite防止插入重复数据的方法

Delphi leftstr 返回字符串左边指定个数的新字符(串)

Delphi中创建json字符串

Delphi 试试带参数的 exit

Delphi实现身份证号码15到18位升位算法

Delphi 利用tidhttp实现文件下载的分块断点续传

Delphi 如何得到动态链接库的输出函数tdump命令

Delphi将excel导入access

Delphi什么是thttpclient？

Delphi配置文件ini

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

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