精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>图形界面和窗体>>获取系统中所有的字体!

主题:获取系统中所有的字体!
发信人: delphilxh(先锋)
整理人: teleme(2001-07-07 10:31:45), 站内信件
var
  FontName:TComboBox;

function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;  
  FontType: Integer; Data: Pointer): Integer; stdcall;  
begin  
  TStrings(Data).Add(LogFont.lfFaceName);  
  Result := 1;  
end;  

procedure TMainForm.GetFontNames;
var
  DC: HDC;
begin
  DC := GetDC(0);
  EnumFonts(DC, nil, @EnumFontsProc, Pointer(FontName.Items));
  ReleaseDC(0, DC);
  FontName.Sorted := True;
end



----
高举马列主义、毛泽东思想、邓小平理论伟大红旗,紧紧团结在以江泽民同志为核心的党中央周围,奋勇前进!前进!前进!进!进!进!

[关闭][返回]