delphi 判断系统是否有方正姚体

发布网友发布时间：2024-10-24 09:41

共1个回答

热心网友时间：2天前

delphi 提供了一个 TScreen 组件（TScreen = class(TComponent) ），这个组件有 Fonts 属性，是个 TStrings 类型，访问这个属性就可以获取系统中注册的字体列表：

则判断系统是否有方正姚体，可以编写示例代码如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines := Screen.Fonts;
  if Screen.Fonts.IndexOf('方正姚体')<>-1 then
  begin
    ShowMessage('系统中有方正姚体。');
  end;
end;

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com