如何获取系统的字体？

[tg15]

我正在做一个要画图的东西，里面要输入文字，可以设置文字的字体，我又不想用CFontDialog，要自己做一个选择字体的对话框，用什么方法可获取当前系统的所有字体信息？

[zkxz]

名字为“System”的字体就是系统当前使用的字体。

[taianmonkey]

int CALLBACK EnumFontsProc(LPLOGFONT lplf, LPTEXTMETRIC lptm,DWORD dwStyle, LONG lParam)
{
UINT i ;

/* check to see if the font is already there right off the bat
and just continue the enumeration if it is... */


i = SendDlgItemMessage((HWND) lParam, IDC_LIST1, LB_ADDSTRING, (WPARAM) 0,
(LONG) (LPTSTR) lplf->lfFaceName) ;
return 1 ;
}

*******************************************
HDC hdc;
hdc = ::GetDC(m_hWnd);
EnumFontFamilies(hdc, (LPTSTR) NULL, (FONTENUMPROC) EnumFontsProc, (LONG) m_hWnd) ;
::ReleaseDC(m_hWnd, hdc) ;

[bohut]

枚举所有字体
LOGFONT lf;
lf.lfCharSet = DEFAULT_CHARSET; // Initialize the LOGFONT structure
strcpy(lf.lfFaceName,"");
CClientDC dc (this);

//Enumerate the font families
::EnumFontFamiliesEx((HDC) dc,&lf,
(FONTENUMPROC) EnumFontFamProc,(LPARAM) this,0);

//枚举函数
int CALLBACK EnumFontFamProc(LPENUMLOGFONT lpelf,LPNEWTEXTMETRIC lpntm,DWORD nFontType,long lparam)
{
// Create a pointer to the dialog window
CDay7Dlg* pWnd = (CDay7Dlg*) lparam;
// add the font name to the list box

pWnd ->m_ctlFontList.AddString(lpelf ->elfLogFont.lfFaceName);

// Return 1 to continue font enumeration
return 1;
}
其中m_ctlFontList是一个列表控件变量

[dongfa]

EnumFontFamiliesEx