int EnumFontFamiliesEx(
  HDC hdc,                          // handle to DC
  LPLOGFONT lpLogfont,              // font information
  FONTENUMPROC lpEnumFontFamExProc, // callback function
  LPARAM lParam,                    // additional data
  DWORD dwFlags                     // not used; must be 0
);

class CFontEx : public CFont
{
public:
    bool GetFont(LOGFONT *plogfont,
             int nbpoints,
             const char *szFontName,
             const char *szFontFullName="",
             CDC *pDC=NULL);
    bool GetCFont(CFont &refCFont ,
              int nNbPoints,
              const char *szFontName,
              const char *szFontFullName="",
              CDC *pDC=NULL);

    bool GetFont(int nNbPoints,
             const char *szFontName,
             const char *szFontFullName="",
             CDC *pDC=NULL);

    CDC *CreateScreenDC(void);

private:
    CString m_strFontName,m_strFontFullName;
    LOGFONT *m_pCurrentLogFont;
    bool m_bFind;

static BOOL CALLBACK AFX_EXPORT EnumFontFamiliesCallBack(ENUMLOGFONTEX* pelf,
                                                         NEWTEXTMETRICEX* /*lpntm*/, 
                                                         int FontType, LPVOID pThis);
};

BOOL CALLBACK AFX_EXPORT 
CFontEx::EnumFontFamiliesCallBack(ENUMLOGFONTEX* pelf,N
                                  EWTEXTMETRICEX* /*lpntm*/,
                                  int FontType, LPVOID pThis)
{
    CString k=pelf->elfLogFont.lfFaceName;
    CFontEx *pFont=(CFontEx *)pThis;

    // recherche d'une fonte specifique
    if(pFont->m_strFontName!="" && 
        pFont->m_strFontName!=pelf->elfLogFont.lfFaceName) return(1);

    if(pFont->m_strFontFullName!="")
        if(pFont->m_strFontFullName!=pelf->elfFullName) return(1);

    if(pFont->m_strFontFullName=="")
        if(pelf->elfFullName!=pFont->m_strFontName) return(1); 

    memmove(pFont->m_pCurrentLogFont,&pelf->elfLogFont,sizeof(LOGFONT));
    pFont->m_bFind=true;
    return(0);
}
CDC *CFontEx::CreateScreenDC(void)
{

    static CDC *pDC=NULL;
    HDC hDC;
    hDC = ::GetDC(NULL);
    pDC = CDC::FromHandle(hDC); 
    return (pDC);
} 

bool CFontEx::GetFont(int nNbPoints,
                      const char *szFontName,
                      const char *szFontFullName /*=""*/,
                      CDC *pDC /*=NULL*/)
{

// 
    return GetCFont(*this,
                    nNbPoints,
                    szFontName,
                    szFontFullName,
                    pDC);
}

bool CFontEx::GetCFont(CFont &refCFont,
                       int nNbPoints,
                       const char *szFontName,
                       const char *szFontFullName /*=""*/,
                       CDC *pDC /*=NULL*/)
{

// 
    LOGFONT lf;
    if(refCFont.m_hObject) refCFont.DeleteObject();
    if(GetFont(&lf,nNbPoints,szFontName,szFontFullName,pDC))
    return (refCFont.CreateFontIndirect(&lf)==TRUE); 
    return false;
}
bool CFontEx::GetFont(LOGFONT *plogfont,
                      int nbpoints,
                      const char *szFontName,
                      const char *szFontFullName /*=""*/,
                      CDC *pDC /*=NULL*/)

{ 

    bool bAutoDC=false;
    nbpoints*=10; 

    m_strFontName=szFontName;
    m_strFontFullName=szFontFullName;
    m_pCurrentLogFont=plogfont;
    m_bFind=false;

    if(pDC==NULL)
    { 
        pDC=CreateScreenDC();
        bAutoDC=true;
    }

    LOGFONT lf; 
    memset(&lf, 0, sizeof(LOGFONT));
    lf.lfCharSet = DEFAULT_CHARSET; 

    if(!m_strFontName.IsEmpty())
    strcpy(lf.lfFaceName,m_strFontName);
    else m_strFontName="Courier New";

    ::EnumFontFamiliesEx(pDC->m_hDC, &lf,
            (FONTENUMPROC) CFontEx::EnumFontFamiliesCallBack,
            (LPARAM)this ,0);

    if(m_bFind)
    {
        plogfont->lfHeight =-MulDiv(nbpoints,pDC->GetDeviceCaps(LOGPIXELSY),72);
        plogfont->lfHeight/=10;
        if(nbpoints<0) plogfont->lfHeight=abs(plogfont->lfHeight); 
        plogfont->lfWidth=0;
    }
    if(bAutoDC) pDC->DeleteDC();
    return(m_bFind);
}

CFontEx Font; 
Font.GetFont(10,"Arial");  

// reglage de la fonte en mode vertical:
LOGFONT lf;
//1 récupération des paramètres d'une CFont ou d'une fenêtre  
VERIFY(pCurrentFont->GetLogFont(&lf));
// 2 changement des valeurs
lf.lfEscapement=900;
lf.lfOrientation=900;
// Création de la nouvelle fonte
CFont FontVert;
VERIFY(FontVert.CreateFontIndirect(&lf));
CFont *pOldFont=dc.SelectObject(&FontVert);

// Affichage final d'une chaîne stext, dans le rectangle rectText calculé au préalable bien sur.
UINT nFormat=DT_LEFT|DT_SINGLELINE;
dc.DrawText(sText,&rectText,nFormat|DT_CALCRECT);

   CWnd *pWnd = GetDlgItem(IDC_STATIC1);
   CFont* pFont = pWnd->GetFont();
   if(pFont!=NULL)
   {
      LOGFONT lf;
      pFont->GetLogFont(&lf);
      lf.lfWeight=FW_BOLD;//mettre l'attribut en gras par exemple.
      // CFont m_font;  // objet local à la classe parent fenetre CDialog,CFormView

      m_font.DeleteObject();  // destruction GDI de l'ancien objet eventuellement
      m_font.CreateFontIndirect(&lf); // creation de la fonte d'apres la LOGFONT
    }
    pWnd->SetFont(&m_font);  // affectation de la nouvelle fonte.

    // Installe la police 
    HRSRC hRes   = FindResource(NULL, MAKEINTRESOURCE(IDR_FONT), _T("TTF"));
    PVOID lpFont = LockResource(LoadResource(NULL, hRes)); 
    DWORD dwSize = SizeofResource(NULL, hRes), cFonts = 0;
    HANDLE hFont = AddFontMemResourceEx(lpFont, dwSize, NULL, &cFonts);
    ASSERT(cFonts > 0);

    // Crée la police

    CFont Font;
    VERIFY(Font.CreatePointFont(110, _T("NomDeLaPolice")));

    // ... Utilisation

    // Désinstalle la police

    VERIFY(RemoveFontMemResourceEx(hFont));