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 任务栏显示进度条 createcomobject(clsid_taskbarlist) as itaskbarlist4

Delphi 去掉警告

Delphi编程之显示桌面分辨率

Delphi 游戏测试call

Delphi edit只允许输入数字和小数点

Delphi禁止用鼠标拖动窗口的大小

Delphi 限制窗体大小的最大值与最小值

Delphi 判断tcp端口是否被占用的方法

如何用Delphi实现windows xp中“本地连接”的启用和禁用

Delphi tms web core 从js调用pascal函数

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

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