110,571
社区成员
发帖
与我相关
我的任务
分享
;安装字体
!insertmacro removeFont "CNP50.ttf" "CNP50"
File /oname=$FONTS\CNP50.ttf Resources\CNP50.ttf
Push "$FONTS\CNP50.ttf"
System::Call Gdi32::AddFontResource(t s) i .s
WriteRegStr HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" "CNP50 (TrueType)" "CNP50.ttf"
System::Call "GDI32::AddFontResource(t) i ('CNP50.ttf') .s"
Pop $0
IntCmp $0 0 0 +2 +2
MessageBox MB_OK "注册字体失败"
SendMessage ${HWND_BROADCAST} ${WM_FONTCHANGE} 0 0