如何知道 .TTF 字型檔的 "字型名稱" ? 版本資訊 ? ... 等資訊 ? ********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

pcboy2 您好：    參考一下這一篇，裡邊有討論到以 callback 方式取得字型的許多相關資訊，但是版本資訊我不確定可否使用該方式取得： 怎麼知道有沒有裝某一套字型? http://delphi.ktop.com.tw/topic.php?topic_id=20021

procedure AddFontToList(lpLogFont:PEnumLogFont; lpNewTextMetric:PNewTextMetric;
    FontType:integer; lParam:LPARAM); stdcall;
begin
  TForm1(lParam).ListBox1.Items.Add(lpLogFont^.elfLogFont.lfFaceName);
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumFontFamilies(Canvas.Handle, nil, @AddFontToList, LPARAM(self));    end;    

＠瞭解越多.懂得越少＠

一般作法都是以讀取 TTF 檔頭及檔案結構。 加以判斷。 不過 TTF 具所知是有幾個版本。 可能需多判斷處理。 源碼參考可查閱 http://www.codeproject.com/gdi/fontnamefromfile.asp http://www.codeproject.com/gdi/fontfile.asp http://www.codeproject.com/gdi/xfont.asp 都有簡單的示範，不過是 C 寫的。 參考一下寫法，就可以了。 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

這裡在談的好像是 是否有安裝某字型, 以及列出所有字型
===================引 用 RedSnow 文 章===================
pcboy2 您好： 參考一下這一篇，裡邊有討論到以 callback 方式取得字型的許多相關資訊，但是版本資訊我不確定可否使用該方式取得：
怎麼知道有沒有裝某一套字型?
http://delphi.ktop.com.tw/topic.php?topic_id=20021

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

chris_shieh 兄:
lpLogFont^ 屬性很少, 小弟都列出了, 但是沒有小弟要的東西
<textarea class="delphi" rows="10" cols="60" name="code"> TForm1(lParam).Memo1.Lines.Add(lpLogFont^.elfLogFont.lfFaceName); TForm1(lParam).Memo1.Lines.Add(lpLogFont^.elfFullName); TForm1(lParam).Memo1.Lines.Add(lpLogFont^.elfStyle); </textarea>

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

http://www.codeproject.com/gdi/fontnamefromfile.asp
http://www.codeproject.com/gdi/fontfile.asp
http://www.codeproject.com/gdi/xfont.asp
小弟不熟 C , 這要花些時間測試

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！