[问题求助] powershell安装注册字体

小白龙

我想用批处理安装免费可商用的 鸿蒙字体 https://www.hanyi.com.cn/custom-font-case-7

然后,我用GPT写了一段代码, 代码的任务是先获取字体的文件的字体名, 然后检查该字体是否已经安装, 如是要没有安装, 则将字体拷贝到windows下的Font文件夹, 然后安装Font文件夹下的该字体, 然后删除原字体文件
执行中报错  无法删除字体  但是我手动是可以删除的! 我去windows下的Font文件夹看来了一下,拷贝到Font目录的命令也没生效!
就算没有权限, 我用下面的小工具提权也无法删除, 也没拷贝成功, 真是怪了, PS:把批处理拖到这个软件的图标上就能提权执行
https://www.sordum.org/9416/powe ... highest-privileges/

另外执行完后, 双击打开字体, 仍然可以点安装按钮安装字体, 看来代码没发挥作用,没有安装上, 如果安装上了, 当我再次点击 安装 按钮, 会提示该字体安装过

求路过大佬帮助, 谢谢

# 定义字体文件路径
$fontFilePath = ".\A.ttf"

#获取字体名
Add-Type -AssemblyName System.Drawing
$fontCollection = New-Object System.Drawing.Text.PrivateFontCollection
$fontCollection.AddFontFile($fontFilePath)
$fontName = $fontCollection.Families[0].Name
$fontName

# 检查系统中是否已安装指定字体
$fontInstalled = $false
$installedFontCollection = New-Object System.Drawing.Text.InstalledFontCollection
$installedFontFamilies = $installedFontCollection.Families
foreach ($fontFamily in $installedFontFamilies)
{
	if ($fontFamily.Name -eq $fontName)
	{
		$fontInstalled = $true
		break
	}
}
$fontInstalled

# 如果未安装该字体，则添加到系统字体表中
if (!$fontInstalled)
{
	# 复制字体文件到系统 Font 目录
	$destinationFolderPath = "C:\Windows\Fonts"
	Copy-Item -Path $fontFilePath -Destination $destinationFolderPath -Force
	
	# 将字体文件注册到系统字体表中
	Add-Type -TypeDefinition @'
using System;
using System.Runtime.InteropServices;

public static class FontInstaller
{
    [DllImport("gdi32.dll")]
    private static extern int AddFontResource(string lpFileName);

    public static int Install(string fontFilePath)
    {
        return AddFontResource(fontFilePath);
    }
}
'@
	[FontInstaller]::Install($fontFilePath)
	
	#删除字体
	del $fontFilePath -Force -Recurse
}
复制代码

idwma

提权后是不是当前目录变了

小白龙

回复 2# idwma


    没有, 我在CMD下, 用 dir *mn* 能看到拷贝的文件在Font文件夹里面了,
最后那条命令的意思是,既然已经拷贝到Font文件夹了, 那原字体文件就没什么用了, 就把它删除, 但是死活执行不成功, 字体也没有安装上, 在别的软件下找不到安装的字体, 真是怪了

<# :
cls&echo off&cd /d "%~dp0"&mode con lines=5000&rem bat保存为ANSI/GB2312编码
set "current=%cd%"
set "nm=%~n0.bat"
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
pause
exit
#>

# 定义字体文件路径
$fontFilePath = "$env:current\A.ttf"
$fontFilePath

#获取字体名
Add-Type -AssemblyName System.Drawing
$fontCollection = New-Object System.Drawing.Text.PrivateFontCollection
$fontCollection.AddFontFile($fontFilePath)
$fontName = $fontCollection.Families[0].Name
$fontName

# 检查系统中是否已安装指定字体
$fontInstalled = $false
$installedFontCollection = New-Object System.Drawing.Text.InstalledFontCollection
$installedFontFamilies = $installedFontCollection.Families
foreach ($fontFamily in $installedFontFamilies)
{
	if ($fontFamily.Name -eq $fontName)
	{
		$fontInstalled = $true
		break
	}
}
$fontInstalled

# 如果未安装该字体，则添加到系统字体表中
if (!$fontInstalled)
{
	# 复制字体文件到系统 Font 目录
	$destinationFolderPath = "C:\Windows\Fonts"
	Copy-Item -Path $fontFilePath -Destination $destinationFolderPath -Force
	
	# 将字体文件注册到系统字体表中
	Add-Type -TypeDefinition @'
using System;
using System.Runtime.InteropServices;

public static class FontInstaller
{
    [DllImport("gdi32.dll")]
    private static extern int AddFontResource(string lpFileName);

    public static int Install(string fontFilePath)
    {
        return AddFontResource(fontFilePath);
    }
}
'@
	[FontInstaller]::Install("C:\Windows\Fonts\A.ttf")
	
	#删除字体
	del $fontFilePath -Force
}
复制代码

小白龙

太奇怪了, 用批处理删不了字体文件, 手动一下就删了, 一直都是下面的提示, 用powerrun也不行

del : 无法删除项 C:\Users\Administrator\Desktop\A.ttf: 对路径“C:\Users\Administrator\Desktop\A.ttf”的访问被拒绝。

mzzyb

批处理用管理员身份运行试试，对font文件夹操作，需要的权限是比较大的。我感觉，你的需求，用简单的copy就能实现，判断字体存不存在，都不用，如果已经有了，它自己会提示你已经有了，如果不想有提示，可以增加参数，强制复制，不显示交互