var
ncm: tnonclientmetrics;
begin
ncm.cbsize := sizeof(tnonclientmetrics);
{get old non client metrics}
systemparametersinfo(spi_getnonclientmetrics, sizeof(tnonclientmetrics), @ncm, 0);
{
lfcaptionfont - regular captions
lfsmcaptionfont - small captions
lfmenufont - menus
lfstatusfont - status bars
lfmessagefont - message boxes
}
ncm.lfmessagefont.lffacename := '楷体';
ncm.lfmessagefont.lfheight:=18;
ncm.lfcaptionfont.lfheight:=18;//标题字
ncm.lfmenufont.lfheight:=18;//菜单
{set new non client metrics}
systemparametersinfo(spi_setnonclientmetrics, sizeof(tnonclientmetrics), @ncm, 0);
end;