如何设置程序的菜单字体，而又不改变系统菜单字体？

Question

   我用下面的代码修改主窗体菜单字体，但把系统的字体也改变了，这肯定不是我想要的，怎么设置程序的菜单字体，而又不改变系统菜单字体???
var
ncm: TNonClientMetrics;
begin
    ncm.cbSize := SizeOf(TNonClientMetrics);    SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(TNonClientMetrics), @ncm, 0);    ncm.lfMenuFont.lfFaceName := 'Verdana';
    ncm.lfMenuFont.lfHeight:=18;//菜单    SystemParametersInfo(SPI_SETNONCLIENTMETRICS, SizeOf(TNonClientMetrics), @ncm, 0);
end;

Answer 1

请问怎么’替换掉系统菜单‘？？