如何得知windows使用的字体？？

      delphi下可以用什么方法，可以得知windows使用  
  的是大字体还是小字体？  
        谢谢！！ 问题点数：20、回复次数：4Top

1 楼heartbeat_hb（顶天立地）回复于 2001-10-27 03:37:01 得分 10

你真的运气好！！！给你个例子:  
   
  我的这个程序(setup.exe)中的“可选字体”用到这个方法,   请看：  
  http://202.103.69.33/cnshare/showsoft.php3?id=2586  
   
  下面是源码：  
   
  ...................  
  var  
    i:   integer;  
  begin  
    for   i   :=   0   to   Screen.Fonts.Count-1   do  
        ComboBox1.Items.Add(Screen.Fonts.Strings[i]);     //   请添加一个   ComboBox1  
    ComboBox1.ItemIndex   :=   0;    
  end;  
   
  ...................  
  Top

2 楼heartbeat_hb（顶天立地）回复于 2001-10-27 03:38:53 得分 9

再用这个函数   GetSystemMetrics   看看  
  Top

3 楼heartbeat_hb（顶天立地）回复于 2001-10-27 03:39:29 得分 1

参考参考，共同提高Top

4 楼blackfish（一天到晚游泳的鱼）回复于 2001-10-29 18:48:22 得分 0

谢谢各位的参与Top

相关问题

• 字体
• combobox1
• 方法
• screen
• 得知windows使用
• fonts

• 帖主：blackfish
• heartbeat_hb
• heartbeat_hb
• heartbeat_hb

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载