菜鸟提问，在线等待~~~~~~~~

Question

function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
  FontType: Integer; Data: Pointer): Integer; stdcall;
//此函数用于列举系统安装的所有字体
begin
  TStrings(Data).Add(LogFont.lfFaceName);
  Result := 1;
end;procedure TfrmEditor.GetFontNames;
//此过程用于列举所有字体名称，并将字体加载到FontName下拉框中
var
  DC: HDC;
begin
  DC := GetDC(0);
  EnumFonts(DC, nil, @EnumFontsProc, Pointer(FontName.Items));
  ReleaseDC(0, DC);
  FontName.Sorted := True;
end;请问一哈:
  下面的过程的变量声明从那冒出来的，最好能帮我解释一下begin后的语句，谢谢先

Answer 1

哪个begin啊
第一个下面的书传进来的参数
第二个下面的是一个设备描述结构DC的句柄

Answer 2

这两个函数应该在TScreen类里，你到那看看代码，我想应该可以找到你想的。