:: Author: gx
:: Date: 2025-1
:: Description:
::  - 自动安装目录内的字体,脚本需要放在字体目录内运行。

@echo off
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit cd /d "%~dp0"
setlocal enabledelayedexpansion

:: 获取当前目录
set "FONT_DIR=%~dp0"

:: 目标字体安装目录（Windows 系统字体目录）
set "FONT_TARGET=%SystemRoot%\Fonts"

echo Installing fonts from %FONT_DIR% to %FONT_TARGET%...
echo.

cd /d %FONT_DIR%

rem for %%F in (*.ttf) do (
rem     echo Installing: %%F...
rem     copy "%%F" "%FONT_TARGET%" >nul
rem     reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" /v "%%~nF (TrueType)" /t REG_SZ /d "%%F" /f >nul
rem )


:: 遍历当前目录下的所有 .ttf 字体文件, 跳过已安装的
for %%F in (*.ttf) do (
    if not exist "%FONT_TARGET%\%%F" (
        echo Installing: %%F...
        copy "%%F" "%FONT_TARGET%" >nul 2>&1
        if %errorLevel% equ 0 (
            echo Successfully installed: %%F
            reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" /v "%%~nF (TrueType)" /t REG_SZ /d "%%F" /f >nul
        ) else (
            echo Failed to install: %%F
        )
    ) else (
        echo Font %%F already exists, skipping...
        echo.
    )
)


echo.
echo All fonts installed successfully!
timeout /t 7
exit