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/

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

求路过大佬帮助, 谢谢

1. # 定义字体文件路径
   
2. $fontFilePath = ".\A.ttf"
   
3. 
   
4. #获取字体名
   
5. Add-Type -AssemblyName System.Drawing
   
6. $fontCollection = New-Object System.Drawing.Text.PrivateFontCollection
   
7. $fontCollection.AddFontFile($fontFilePath)
   
8. $fontName = $fontCollection.Families[0].Name
   
9. $fontName
   
10. 
    
11. # 检查系统中是否已安装指定字体
    
12. $fontInstalled = $false
    
13. $installedFontCollection = New-Object System.Drawing.Text.InstalledFontCollection
    
14. $installedFontFamilies = $installedFontCollection.Families
    
15. foreach ($fontFamily in $installedFontFamilies)
    
16. {
    
17.         if ($fontFamily.Name -eq $fontName)
    
18.         {
    
19.                 $fontInstalled = $true
    
20.                 break
    
21.         }
    
22. }
    
23. $fontInstalled
    
24. 
    
25. # 如果未安装该字体，则添加到系统字体表中
    
26. if (!$fontInstalled)
    
27. {
    
28.         # 复制字体文件到系统 Font 目录
    
29.         $destinationFolderPath = "C:\Windows\Fonts"
    
30.         Copy-Item -Path $fontFilePath -Destination $destinationFolderPath -Force
    
31.        
    
32.         # 将字体文件注册到系统字体表中
    
33.         Add-Type -TypeDefinition @'
    
34. using System;
    
35. using System.Runtime.InteropServices;
    
36. 
    
37. public static class FontInstaller
    
38. {
    
39.     [DllImport("gdi32.dll")]
    
40.     private static extern int AddFontResource(string lpFileName);
    
41. 
    
42.     public static int Install(string fontFilePath)
    
43.     {
    
44.         return AddFontResource(fontFilePath);
    
45.     }
    
46. }
    
47. '@
    
48.         [FontInstaller]::Install($fontFilePath)
    
49.        
    
50.         #删除字体
    
51.         del $fontFilePath -Force -Recurse
    
52. }

复制代码

idwma

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

小白龙

回复 2# idwma


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

1. <# :
   
2. cls&echo off&cd /d "%~dp0"&mode con lines=5000&rem bat保存为ANSI/GB2312编码
   
3. set "current=%cd%"
   
4. set "nm=%~n0.bat"
   
5. powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
   
6. pause
   
7. exit
   
8. #>
   
9. 
   
10. # 定义字体文件路径
    
11. $fontFilePath = "$env:current\A.ttf"
    
12. $fontFilePath
    
13. 
    
14. #获取字体名
    
15. Add-Type -AssemblyName System.Drawing
    
16. $fontCollection = New-Object System.Drawing.Text.PrivateFontCollection
    
17. $fontCollection.AddFontFile($fontFilePath)
    
18. $fontName = $fontCollection.Families[0].Name
    
19. $fontName
    
20. 
    
21. # 检查系统中是否已安装指定字体
    
22. $fontInstalled = $false
    
23. $installedFontCollection = New-Object System.Drawing.Text.InstalledFontCollection
    
24. $installedFontFamilies = $installedFontCollection.Families
    
25. foreach ($fontFamily in $installedFontFamilies)
    
26. {
    
27.         if ($fontFamily.Name -eq $fontName)
    
28.         {
    
29.                 $fontInstalled = $true
    
30.                 break
    
31.         }
    
32. }
    
33. $fontInstalled
    
34. 
    
35. # 如果未安装该字体，则添加到系统字体表中
    
36. if (!$fontInstalled)
    
37. {
    
38.         # 复制字体文件到系统 Font 目录
    
39.         $destinationFolderPath = "C:\Windows\Fonts"
    
40.         Copy-Item -Path $fontFilePath -Destination $destinationFolderPath -Force
    
41.        
    
42.         # 将字体文件注册到系统字体表中
    
43.         Add-Type -TypeDefinition @'
    
44. using System;
    
45. using System.Runtime.InteropServices;
    
46. 
    
47. public static class FontInstaller
    
48. {
    
49.     [DllImport("gdi32.dll")]
    
50.     private static extern int AddFontResource(string lpFileName);
    
51. 
    
52.     public static int Install(string fontFilePath)
    
53.     {
    
54.         return AddFontResource(fontFilePath);
    
55.     }
    
56. }
    
57. '@
    
58.         [FontInstaller]::Install("C:\Windows\Fonts\A.ttf")
    
59.        
    
60.         #删除字体
    
61.         del $fontFilePath -Force
    
62. }

复制代码

小白龙

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

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

mzzyb

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