VC 获取已系统安装的字体

转载请注明来源：https://www.cnblogs.com/hookjc/

BOOL CALLBACK EnumFonts(CONST LOGFONT* lplf, CONST TEXTMETRIC *lptm,DWORD dwType,LPARAM lparam)
{
 CString tempFontName(lplf->lfFaceName);
 CString temp=gSysFontNames;
 if(tempFontName.Find("@")!=-1)
  return true;
 //可对tempFontName自行附加过滤条件

//{
  gSysFontNames.Format("%s,%s",temp,tempFontName);
 //}
 return true;
}

void CDialogTest:OnButton1()

{

AfxMessageBox(GetSystemFontName((LPVOID)this);

}

CString CDialogTest::GetSysFontName(LPVOID lp)
{
 gSysFontNames="";
 try
 {
  CPaintDC dc((CWnd*)lp);
  ::EnumFonts(dc.m_hDC,NULL,(FONTENUMPROC)EnumFonts,0);
  return gSysFontNames.Mid(1);
 }
 catch(...)
 {
  return "";
 }
}

来源：python脚本自动迁移