int CALLBACK EnumFontsProc(LOGFONT *lplf, TEXTMETRIC *lptm, DWORD dwType,LPARAM lpData)
{
    Form2->Memo1->Lines->Add(lplf->lfFaceName);
}

void __fastcall TForm2::Button4Click(TObject *Sender)
{
    Memo1->Lines->Clear();
    EnumFontFamilies(GetDC(0),NULL,(FONTENUMPROC)EnumFontsProc, NULL);

}
윈도우 폰트에는 여러 가지폰트가 있습니다 .
왜 이런지 이해가 안갑니다.