GdiPlus[25]: IGPInstalledFontCollection: 獲取已安裝的字體列表

unit　Unit1;　
　
interface　
　
uses　
　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　
　Dialogs,　StdCtrls;　
　
type　
　TForm1　=　class(TForm)　
　　ListBox1:　TListBox;　
　　Button1:　TButton;　
　　Button2:　TButton;　
　　procedure　Button1Click(Sender:　TObject);　
　　procedure　Button2Click(Sender:　TObject);　
　end;　
　
var　
　Form1:　TForm1;　
　
implementation　
　
{$R　*.dfm}　　
　
uses　GdiPlus;　
　
//通過　IGPInstalledFontCollection　獲取字體列表　
procedure　TForm1.Button1Click(Sender:　TObject);　
var　
　FontCollection:　IGPInstalledFontCollection;　
　FontFamily:　IGPFontFamily;　
begin　
　FontCollection　:=　TGPInstalledFontCollection.Create;　
　
　Text　:=　Format('字體總數:　%d',　[FontCollection.FamilIEs.Count]);　
　
　ListBox1.Clear;　
　for　FontFamily　in　FontCollection.FamilIEs　do　
　begin　
　　ListBox1.Items.Add(FontFamily.FamilyName);　
　end;　
end;　
　
//通過　Screen　獲取字體列表　
procedure　TForm1.Button2Click(Sender:　TObject);　
begin　
　Text　:=　Format('字體總數:　%d',　[Screen.Fonts.Count]);　
　ListBox1.Items.Assign(Screen.Fonts);　
end;　
　
end.