“@”：这个符号我不明白是什么意思？(0分)

“@”：请大家告诉我
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);
end;

取地址

取地址，同 Addr();

接受答案了.