C / C++ / MFC

int CALLBACK FontProc(ENUMLOGFONTEX *lpelfe, NEWTEXTMETRICEX *lpntme, int FontType, LPARAM lParam)
{
   *(BYTE*)lParam = lpntme->ntmentm.tmCharSet;
   return 1;
}

BYTE GetFontCharSet(LPCTSTR lpszFont)
{
   CClientDC dc(NULL);
   LOGFONT lf;
   lf.lfCharSet = DEFAULT_CHARSET;
   _tcscpy(lf.lfFaceName, lpszFont);
   lf.lfPitchAndFamily = 0;
   BYTE bCharSet = DEFAULT_CHARSET;
   EnumFontFamiliesEx(dc.m_hDC, &lf, (FONTENUMPROC)FontProc, &bCharSet);
   return bCharSet;
}

#define	LINK_KEY	_T("http\\shell\\open\\command")

void CLink::Open(LPCTSTR lpszURL)
{
	// Simply execute the URL
	ShellExecute(NULL, NULL, lpszURL, NULL, NULL, SW_SHOWNORMAL);
}

void CLink::OpenNew(LPCTSTR lpszURL)
{
	// Get the browser
	CString strBrowser = GetBrowser();
	// Success?
	if (strBrowser.IsEmpty())
	{
		Open(lpszURL);
		return;
	}
	// Execute
	ShellExecute(NULL, NULL, strBrowser, lpszURL, NULL, SW_SHOWNORMAL);
	// Done
}

CString CLink::GetBrowser() const
{
	// The full path of the browser
	CString str;
	// Get the default browser from HKCR\http\shell\open\command
	HKEY hKey = NULL;
	// Open the registry
	if (RegOpenKeyEx(HKEY_CLASSES_ROOT, LINK_KEY, 0, KEY_READ, &hKey) ==
		ERROR_SUCCESS)
	{
		// Data size
		DWORD cbData = 0;
		// Get the default value
		if (RegQueryValueEx(hKey, NULL, NULL, NULL, NULL, &cbData) ==
			ERROR_SUCCESS)
		{
			// Check the buffer size
			if (cbData > 0)
			{
				// Allocate a suitable buffer
				TCHAR* psz = new TCHAR [cbData];
				// Success?
				if (psz != NULL)
				{
					if (RegQueryValueEx(hKey, NULL, NULL,
						NULL, (LPBYTE)psz, &cbData) ==
						ERROR_SUCCESS)
					{
						// Success
						str = psz;
					}
					// Delete the buffer
					delete [] psz;
				}
			}
		}
		// Close the registry
		RegCloseKey(hKey);
	}
	// Do we have the browser?
	if (str.GetLength())
	{
		// Strip the full path from the string
		int nStart = str.Find('"');
		int nEnd = str.ReverseFind('"');
		// Do we have either quote?
		// If so, then the path contains spaces
		if (nStart >= 0 && nEnd >= 0)
		{
			// Are they the same?
			if (nStart != nEnd)
			{			
				// Get the full path
				str = str.Mid(nStart + 1, nEnd - nStart - 1);
			}
		}
		else
		{
			// We may have a pathname with spaces but
			// no quotes (Netscape), e.g.:
			//   C:\PROGRAM FILES\NETSCAPE\COMMUNICATOR\PROGRAM\NETSCAPE.EXE -h "%1"
			// Look for the last backslash
			int nIndex = str.ReverseFind('\\');
			// Success?
			if (nIndex > 0)
			{
				// Look for the next space after the final
				// backslash
				int nSpace = str.Find(' ', nIndex);
				// Do we have a space?
				if (nSpace > 0)
					str = str.Left(nSpace);				
			}
		}
	}
	// Done
	return str;
}