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;