问题描述
注意是安装不是在程序内使用字体win7直接复制到font文件夹是不行的的,有别的办法？
解决方案
解决方案二：
复制一段给你。你可以参考这篇文章http://www.jb51.net/article/52957.htmPublicSubinstallFromFile(ByValstrFileName)DimstrExtension,strBaseFileName,objCallBack,nResultstrBaseFileName=objFileSystemObject.GetBaseName(strFileName)strExtension=UCase(objFileSystemObject.GetExtensionName(strFileName))IfLen(pfnCallBack)>0ThenSetobjCallBack=GetRef(pfnCallBack)ElseSetobjCallBack=NothingEndIfIfstrExtension="TTF"OrstrExtension="TTC"OrstrExtension="OTF"ThenIfNotisFontInstalled(strBaseFileName)ThenIfblnIsVistaThenDimobjFont,objFontNameSpaceSetobjFontNameSpace=objShell.Namespace(objFileSystemObject.GetParentFolderName(strFileName))SetobjFont=objFontNameSpace.ParseName(objFileSystemObject.GetFileName(strFileName))'WSH.EchoobjFileSystemObject.GetParentFolderName(strFileName)objFont.InvokeVerb("Install")SetobjFont=NothingSetobjFontNameSpace=NothingElse'WSH.EchostrFileNameobjFolder.CopyHerestrFileNameEndIfnResult=0ElsenResult=1EndIfElsenResult=-1EndIfIfIsObject(objCallBack)ThenobjCallBackMe,strFileName,nResultSetobjCallBack=NothingEndIfEndSub引用楼主qq1406896395的回复:
注意是安装不是在程序内使用字体win7直接复制到font文件夹是不行的的,有别的办法？