如何获取系统的字体名称(100分)

如何获取系统的默认的字体名称

HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/FontAssoc，正常情况下，会有Associated Charset、Associated DefaultFonts两个目录 这个吧

枚举系统可用字体<br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> &nbsp;Listbox1.Items := Screen.Fonts;<br> &nbsp;//Listbox控件的初始化<br>end;<br><br>procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;<br> &nbsp;Rect: TRect; State: TOwnerDrawState);<br>begin<br> &nbsp;with ListBox1.Canvas do<br> &nbsp;begin<br> &nbsp; &nbsp;FillRect(Rect);<br> &nbsp; &nbsp;Font.Name := ListBox1.Items[Index];<br> &nbsp; &nbsp;TextOut(Rect.Left+1, Rect.Top+1, ListBox1.Items[Index]);<br> &nbsp;end;<br>end;

哪一个是系统默认的字体呢

系统默认字体在注册表里有存的<br>直接读注册表不是更容易？

谢谢各位.