If(Question("フォントリンクの変更、クリアタイプを有効にしますか?","Reset","YesNo")) RegWriteString( "HKLM", "Software\Microsoft\FontLink\SystemLink","Courier New", "\windows\MS-UIGothicEx+.ttf,MS UIゴシック Ex+" ) RegWriteString( "HKLM", "Software\Microsoft\FontLink\SystemLink","Nina", "\windows\MS-UIGothicEx+.ttf,MS UIゴシック Ex+" ) RegWriteDword( "HKLM", "System\GDI\ClearType", "Quality", 1 ) RegWriteDword( "HKLM", "System\GDI\SYSFNT", "Qt", 5 ) Reset Endif