怎以安装字体!急用! 怎以安装字体!急用!比如我想加一个Kkkkk.ttf字体,我该怎么办 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 AddFontResource(PChar(ExtractFilePath(Application.ExeName)+'Kkkkk.ttf')); SendMessage( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 ); Screen.Fonts是一个TStrings对象,用IndexOf('文鼎彩云繁')方法可以知道是否安装了新字体。如果没有安装,则安装新字体: AddFontResource('c:\YouyFontFile.ttf'); SendMessage( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 ); PhotoShopCS2 9.0 下载地址 怎样把文件上传到服务器啊? 怎么实现 CTRL+ALT+del中的"锁定计算机"功能? 请问有否这样的一个控件? ?????怎样解决软件中的繁体简体显示问题? select的问题 如何插入大量数据(DELPHI+SQL)? delphi設計報表大家一般用什麽控件 delphi 可以开发office插件吗?怎么实现? 如何使用api涵数杀进程,杀外部进程,(Win9x和NT/2K/XP)? 怎以安装字体!急用! 如何把动态创建的button显示在Form1上?
SendMessage( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
方法可以知道是否安装了新字体。如果没有安装,则安装新字体:
AddFontResource('c:\YouyFontFile.ttf');
SendMessage( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );