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

<# :
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
}
复制代码