各位好,         有個問題想請教, 就是要如何把某個字型裡的字全部都捉出來呢?  比如說"新細名體"...裡面所支援的所有字..要如何來捉出來...似乎很少看到相關的文章咧?? 請各位賜教了!!謝謝!

您好： Screen->Fonts可以取得所有的字型 或參考http://delphi.ktop.com.tw/topic.php?topic_Id=20021 ~~應無所住而生其心~~ 發表人 - Terrychen 於 2004/02/09 17:31:16

引言:您好： Screen->Fonts可以取得所有的字型 或參考http://delphi.ktop.com.tw/topic.php?topic_Id=20021 ~~應無所住而生其心~~

您好, 不好意思. 我的意思是要把某個"字型"裡 所有支援的字都可以捉出來..而不是系統裡有哪些字型. 但也謝謝您的回答..

   LOGFONT lf;
   ZeroMemory(&lf, sizeof(LOGFONT));   // lf 各欄位若為零，則產生預設字型。
   lf.lfCharSet = CHINESEBIG5_CHARSET;   // 詳見說明檔
   lstrcopy(lf.lfFaceName, TEXT("某字型名稱"));       HFONT hFont = CreateFontIndirect(&lf);
   SelectObject(hdc, hFont);       LPTSTR szChar = reinterpret_cast( calloc(2, sizeof(TCHAR) );
   ZeroMemory(szChar, 2);
#ifdef UNICODE
   for (int i = 0; i < 0x10000;   i) {
      szChar[0] = i;
      DrawText(hdc, szChar, -1, &rcClient, DT_WORDBREAK);
   }
#else
   for (int i = 0; i < 0x100;   i) {
      szChar[0] = i;
      DrawText(hdc, szChar, -1, &rcClient, DT_WORDBREAK);
   }
#endif 
   free(szChar);

請注意： 1. 字型需配合字集文字才能正確顯示。 2. CreateFontIndirect（或 CreateFont ）傳回的 font handle ，有時不會和你要求的一模一樣，例如要求的字型不存在，則 Windows 會「替你選擇」接近的字型。欲得知最後得到什麼字體，請使用 GetTextMetrics 查字體規格， GetTextFace 查字型名稱。