int index;
BOOL CALLBACK EnumFonts(CONST LOGFONT* lplf, CONST TEXTMETRIC *lptm,DWORD dwType,LPARAM aFontName)
{
 CString far *aiFontName=(CString far*)aFontName;
 index++;
 aiFontName[index]=lplf->lfFaceName;
 return true;
}

void CFGDlg::OnOK()
{
 m_list.ResetContent();

 index=-1;
 CString aFontName[MAX_PATH];
 CPaintDC dc(this);
 ::EnumFonts(dc.m_hDC,NULL,(FONTENUMPROC)EnumFonts,(LPARAM)aFontName);
 for(int i=0; i  m_list.AddString(aFontName[i]);
}

int EnumFonts(

    HDC hdc, // handle to device context
    LPCTSTR lpFaceName, // pointer to font typeface name string
    FONTENUMPROC lpFontFunc, // pointer to callback function
    LPARAM lParam  // address of application-supplied data
   );