加载字库

//加载字库
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   CreateScalableFontResource(0,"1.fot","yh.ttf",NULL);
   int n =  AddFontResource("yh.ttf");
   SendMessage(HWND_BROADCAST,WM_FONTCHANGE, 0, 0);
}
//---------------------------------------------------------------------------
//使用字库
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    Button2->Font->Name = "Microsoft YaHei Mono";
    Button2->Font->Size = 12;

}
//---------------------------------------------------------------------------
//从内存中删除字库
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    RemoveFontResource("yh.ttf");
    SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
}