比如說: 我的AP可能會移到別人的電腦上執行 所以我可能要先問OS, 看他的電腦有沒有安裝某套字體, 如"細明體" 要怎麼作呢?

 
procedure TForm1.Button1Click(Sender: TObject);
var
    ts:TStrings;
    i:Integer;
    flag:Boolean;
begin
    ts:=TStringList.Create;
    ts:=Screen.Fonts;
    for i:=0 to ts.Count-1 do
    begin
        if ts.Strings[i]= '細明體' then
           begin
             flag:=True;
             Break;
           end;
    end;
    if not flag then ShowMessage('系統不存在細明體');    end;    

呵呵…Sorry BCB 不熟…用Delphi 表示應該也差不了多少吧^^ 噓~~~~~~沉思中… 發表人 - ddy 於 2002/08/01 23:06:38

居然忘了Screen, 在Application建好時就可以用了, 哎! 幫你翻成BCB, 我是Delphi不會~~~噓 void __fastcall TForm1::Button1Click(TObject *Sender) {   bool Flag=false;   TStringList *ts=new TStringList;   for (int i=0; iCount-1; i ) { if(ts->String[i]=="細明體") Flag=true; } if (!Flag) ShowMessage("系統不存在細明體"); delete ts; }

不過, 我已經Try出用API呼叫的方式 ^^, 可以問一個字型也可以抓出全部的, 更可以知道是不是True Type字, 畢竟是API嘛, 而且我是從BCB的範例偷出來的 想玩的人請跟著我這樣作囉 1. New一個Application 2. 放一個ComboBox, 名字叫FontList 3. 放一個Edit, 名字叫Edit1 (只是方便, 要用Static隨便你) 4. 我們先玩Unit.cpp 1)在 TForm1 *Form1; 前, 貼上 int __stdcall EnumFontsProc(TLogFontA &LogFont, TTextMetricA &/*TextMetric*/, int FontType, Pointer Data) { TCharsetObject *FontCharset; FontCharset = new TCharsetObject((int)LogFont.lfCharSet); String Getft; // Getft=IntToStr(FontType); //想知道是不是True Type字型, 就不要點掉這一行 ((TStrings *)Data)->AddObject(Getft (AnsiString)LogFont.lfFaceName, FontCharset); return 1; } 2)在OnFormShow裡, 貼上 HDC hDC=GetDC(0); void *AllFont=(void *)FontList->Items; TStringList *AA=new TStringList; void *SingleFont=(void *)AA; //詢問所有字型, 請傳NULL EnumFonts(hDC, NULL, (FONTENUMPROC) EnumFontsProc, (long) AllFont); //詢問一個字型, 請傳字型名稱, 可忽略大小寫 EnumFonts(hDC, "fixedsys", (FONTENUMPROC) EnumFontsProc, (long) SingleFont); ReleaseDC(0, hDC); FontList->Sorted=true; if (AA->Count>0) //如果有找到會大於0 Edit1->Text=AA->Strings[0]; delete AA; 3)在這個Unit1.cpp的最後面, 貼上 __fastcall TCharsetObject::TCharsetObject(int FCharset) : TObject() { Charset = FCharset; } 5. 搞定Unit1.cpp後, 現在來玩Unit1.hpp 請在 extern PACKAGE TForm1 *Form1; 前 貼上 class TCharsetObject : public TObject { public: int Charset; __fastcall TCharsetObject(int FCharset); }; 6.按Run ^_^ 7.解說 在你call EnumFonts這個API時, 會去call EnumFontsProc (所以EnumFontsProc是個callback function) 如果你想知道每個字型是不是True Type字型, 就把EnumFonts裡, 我remark 掉的地方, 照我的方式拿掉就行囉 好不好玩? 不好玩別打我 ^O^

Source Code:Unit1.cpp    //---------------------------------------------------------------------------    #include  #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" int __stdcall EnumFontsProc(TLogFontA &LogFont, TTextMetricA &/*TextMetric*/, int FontType, Pointer Data) { TCharsetObject *FontCharset; FontCharset = new TCharsetObject((int)LogFont.lfCharSet); String Getft; // Getft=IntToStr(FontType); //想知道是不是True Type字型, 就不要點掉這一行 ((TStrings *)Data)->AddObject(Getft (AnsiString)LogFont.lfFaceName, FontCharset); return 1; } TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormShow(TObject *Sender) { HDC hDC=GetDC(0); void *AllFont=(void *)FontList->Items; TStringList *AA=new TStringList; void *SingleFont=(void *)AA; //詢問所有字型, 請傳NULL EnumFonts(hDC, NULL, (FONTENUMPROC) EnumFontsProc, (long) AllFont); //詢問一個字型, 請傳字型名稱, 可忽略大小寫 EnumFonts(hDC, "fixedsys", (FONTENUMPROC) EnumFontsProc, (long) SingleFont); ReleaseDC(0, hDC); FontList->Sorted=true; if (AA->Count>0) //如果有找到會大於0 Edit1->Text=AA->Strings[0]; delete AA; } //--------------------------------------------------------------------------- __fastcall TCharsetObject::TCharsetObject(int FCharset) : TObject() { Charset = FCharset; } //---------------------------------------------------------------------------

Source Code:Unit1.hpp    #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include  #include #include #include <Forms.hpp> #include //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TComboBox *FontList; TEdit *Edit1; void __fastcall FormShow(TObject *Sender); private: public: // User declarations __fastcall TForm1(TComponent* Owner); }; class TCharsetObject : public TObject { public: int Charset; __fastcall TCharsetObject(int FCharset); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif

哎! 每次感覺都在自問自答 不過呢! 今天好開心, 可以玩到這個例子, 後來大致上搞懂了callback function是這樣子玩的呀, 呵..... 害偶在這麼晚的夜裡還睡不太著.....呵 下次, 再分享其他好玩的API, 讓大家的程式粉強, 粉有力啦 *^O^*

打太快, 發現有筆誤, 在此更正 1. Unit1.hpp應該是Unit.h 2. 如果要知道是不是True Type字型, 請不要點掉EnumFontsProc裡 我提示的那一行, 而不是EnumFonts

建議您將原始檔放到 「會員作品發表區」 或 「會員貢獻文件檔案上傳專區」 這樣比較不會有「掉碼」的問題，因為在板上直接貼原始碼即使有加上 [ code ] 也可能會「掉碼」 [ /code ]

------
http://www.ViewMove.com

Source Code已附上 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20045

我在試用大大所提供的程式時，
都會出現"Unable to find package import: DCLUSR.bpi"，
我在系統裡也找不到這個檔，
請教大大這要怎麼解決呢？

補充一下

字形資訊，在 registry 內有名稱與路徑
至於字形在不在，也可以直接 FileExist(c:\windows\fonts\字形檔名)，不過這兩個方式取得的資訊有限，但比較簡單