~~~~ 请教delphi的若干问题~~~~~~

{设置菜单字体大小}
procedure SetMenuFontSize(FontSize: Integer);
var
  ncm: TNonClientMetrics;
  PixelsPerInch: Integer;
begin
  ncm.cbSize := sizeof(TNonClientMetrics);
  SystemParametersInfo(
    SPI_GETNONCLIENTMETRICS,
    sizeof(NONCLIENTMETRICS),
    @ncm,
    0
  );  PixelsPerInch := GetDeviceCaps(GetDC(0), LOGPIXELSY);
  ncm.lfMenuFont.lfHeight := -MulDiv(FontSize, PixelsPerInch, 72);  SystemParametersInfo(
    SPI_SETNONCLIENTMETRICS,
    sizeof(NONCLIENTMETRICS),
    @ncm,
    SPIF_UPDATEINIFILE
  );
end;