NSIS 字体安装_超级IT网

安装新字体

网上流传的方法是

复制内容到剪贴板

代码:

!include WinMessages.nsh
 Section "FONTS" SEC01
 File /oname=$FONTS\tahoma.ttf tahoma.ttf ;tahoma.ttf 为字体安装文件
 Push "$FONTS\tahoma.ttf"
 System::Call "Gdi32::AddFontResource(t s) i .s"
 Pop $0
 IntCmp $0 0 0 +2 +2
 MessageBox MB_OK "注册字体失败"
 SendMessage ${HWND_BROADcast} ${WM_FONTCHANGE} 0 0
 SectionEnd

或者如下：

WriteRegStr HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" "Lucida Grande (TrueType)" "Lucida Grande.ttf"
System::Call "GDI32::AddFontResource(t) i ('Lucida Grande.ttf') .s"

来自：http://dreams8.com/thread-3651-1-2.html

方法三：

;安装字体……
  SetOutPath "$INSTDIR"
  File  "Fonts\FZZY_GBK.TTF"
  Call InstallFont
SectionEnd

;----------------------------------------------------------------------------------

Section Uninstall
  ;删除字体
   Push "$FONTS\FZY3FW.TTF"
   System::Call "Gdi32::RemoveFontResource(t s) i .s"
   Pop $0
   IntCmp $0 0 0 +2 +2
   DetailPrint "删除繁体字体失败"
   SendMessage ${HWND_BROADcast} ${WM_FONTCHANGE} 0 0
   Push "$FONTS\FZZY_GBK.TTF"
   System::Call "Gdi32::RemoveFontResource(t s) i .s"
   Pop $0
   IntCmp $0 0 0 +2 +2
   DetailPrint "删除简体字体失败"
   SendMessage ${HWND_BROADcast} ${WM_FONTCHANGE} 0 0
  Delete "$FONTS\FZZY_GBK.TTF"
  Delete "$FONTS\FZY3FW.TTF"

  Delete "$INSTDIR\FZZY_GBK.TTF"
  Delete "$INSTDIR\FZY3FW.TTF"
SectionEnd

;----------------------------------------------------------------------------------

;用于安装字体
Function InstallFont
  DetailPrint "正在安装字体……"
  ;检查字体是否存在。
  IfFileExists $FONTS\FZZY_GBK.TTF lb_fontend
  ; MessageBox MB_RETRYCANCEL|MB_ICONQUESTION "字体已存在。请删除系统中的方正准圆_GBK字体后点重试，或者点取消以后手动安装。" IDRETRY lb_jtfont IDCANCEL lb_jtfontend
;lb_font:
    CopyFiles $INSTDIR\FZZY_GBK.TTF $FONTS\FZZY_GBK.TTF
    Push "$FONTS\FZZY_GBK.TTF"
        System::Call "Gdi32::AddFontResource(t s) i .s"
        Pop $0
        IntCmp $0 0 0 +2 +2
        MessageBox MB_OK "注册字体失败"
        SendMessage ${HWND_BROADcast} ${WM_FONTCHANGE} 0 0
        return
lb_fontend:
        Detailprint "字体已经存在，跳过……"
        return
FunctionEnd

!include functions.nsh

来自：http://dreams8.com/thread-3956-1-4.html

安装硬盘上的字体(代码插入Function,Section内):

StrCpy $0 "D:\Fonts\Chs\经典空趣体繁.ttf"
WriteRegStr HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" "经典空趣体繁(TrueType)" "$0"
System::Call "GDI32::AddFontResource(t) i ('$0') .s"

NSIS 字体安装

[ 申请 ]友情链接：