Herausfinden, ob große/kleine Schriftarten eingestellt

bool __fastcall TForm1::IsBigFont()
{
    bool bRetVal = true;
    HWND lHwnd; 
    long lPrevMapMode; 
    HDC hdc; 
    TEXTMETRIC tm; 

    lHwnd = GetDesktopWindow(); 
    hdc = GetWindowDC(lHwnd);
    
    if (hdc)
    {
        lPrevMapMode = SetMapMode(hdc, MM_TEXT); 
        GetTextMetrics(hdc, &tm); 
        lPrevMapMode = SetMapMode(hdc, lPrevMapMode); 
        ReleaseDC(lHwnd, hdc);
        bRetVal = (tm.tmHeight -> 16); // true == große Schriftarten, false == kleine Schriftarten
    } 

    return bRetVal;
}