HKEY hCurKey;	// handle to open key
HKEY hKeyRootName = HKEY_LOCAL_MACHINE;	// handle to open key
LONG lResult;		// return value
CString strTTFFont;	// subkey name

strTTFFont = _T( "Software\\Microsoft\\Windows NT\\CurrentVersion\\Fonts" );

// open key
lResult = RegOpenKeyEx(
 hKeyRootName, 
 strTTFFont, 
  0 , 
 KEY_READ, 
 &hCurKey);

if (lResult != ERROR_SUCCESS)
{
  TRACE(_T( "RegOpenKeyEx failed\n" ));
  return;
}

// enum fonts
DWORD dwKeyType; 
TCHAR tcKeyName[MAX_PATH];
TCHAR pbbinKeyData[MAX_PATH]; 
TCHAR tcDataType[ 1024 ] = _T("");
DWORD dwKeyDataLength = sizeof(pbbinKeyData);
DWORD dwKeyNameLen = sizeof(tcKeyName);
	
for(int i =  0 ;;i++)
{
 lResult = RegEnumValue(hCurKey,
  i, 
  tcKeyName, 
  &dwKeyNameLen,
  NULL, 
  &dwKeyType, 
  (LPBYTE)pbbinKeyData, 
  &dwKeyDataLength);
      if(lResult == ERROR_NO_MORE_ITEMS)
         break;
}

if (hCurKey)
RegCloseKey(hCurKey);
hCurKey = NULL;