关于Delphi应用自带的字体,AddFontResource
关于Delphi使用自带的字体,AddFontResource.
有人用过这个函数么?
为什么这个函数 不管我怎么填, 返回都是0.
------解决思路----------------------
------解决思路----------------------
GetLastError看看是什么问题。
AddFontResource('字体的文件名')
//SendMessage(.........)
有人用过这个函数么?
为什么这个函数 不管我怎么填, 返回都是0.
------解决思路----------------------
{Test OK}
{Windows7 + SP1, Delphi XE2 UP4 + Hotfix1 + IDE FixPack 4.9.1}
var
i: integer;
begin
i := AddFontResource(Pchar(ExtractFilePath(ParamStr(0)) + '禹卫硬笔常规体.ttf'));
{ 打开你的字体文件}
ShowMessage(IntToStr(i));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); { 通知系统更新字体消息}
end;
var
B: Boolean;
begin
B := RemoveFontResource(Pchar(ExtractFilePath(ParamStr(0)) + '禹卫硬笔常规体.ttf'));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); { 同上}
end;
------解决思路----------------------
GetLastError看看是什么问题。