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

　　delphi提供组件TScreen=class（TComponent）。该组件具有Fonts属性，是TStrings类型。如果您访问此属性，您可以获得系统中注册的字体列表。

　　判断系统是否有姚体。可以写例子代码。

　　procedure TForm 1.Button 1 Click（Sender：TObject）begin Memo 1.Lines:=Screen.Fonts;if Screen.Fonts.IndexOf（'方正姚体'）<>-1 then begin Show Message（'系统中有姚体。'）endend