아래 예제를 참조해서 이것저것 다른 설정을 건드려 볼 수도 있을겁니다.
[가져오기]
function GetMenuFontName : String;
var
ncm : TNonClientMetrics;
begin
ncm.cbSize := SizeOf( ncm );
SystemParametersInfo( SPI_GETNONCLIENTMETRICS, SizeOf( ncm ), @ncm, 0 );
Result := ncm.lfMenuFont.lfFaceName;
end;
[설정]
procedure SetMenuFontName;
var
ncm: TNonClientMetrics;
begin
ncm.cbSize := SizeOf( ncm );
SystemParametersInfo( SPI_GETNONCLIENTMETRICS, SizeOf( ncm ), @ncm, 0 );
ncm.lfMenuFont.lfHeight := 20;
SystemParametersInfo( SPI_SETNONCLIENTMETRICS, SizeOf( ncm ), @ncm,
SPIF_UPDATEINIFILE or SPIF_SENDCHANGE );
end;
|