Un pequeño code que me he hecho para automatizar la instalación de muchas fuentes de texto TTF u OTF
EN WINDOWS 7...
Viene bien para ciertos casos así que aquí lo dejo por si alguien anda buscando algo parecido.
(
Versión 0.2)
TITLE Text Font Installer
(By Elektro H
@cker
^) v0.2
Nircmd win center ititle "Fuentes TrueType" 2
>NULCOLOR 07
:: Modo de instalación normal
REM Instalador.bat
:: Modo de instalación recursiva
REM Instalador.bat -R
Takeown /F "
%SystemRoot%\Fonts"
>NULIcacls "
%SystemRoot%\Fonts" /Grant "
%USERNAME%":
(F
) >NULAttrib -R -S "
%SystemRoot%\Fonts"
>NUL
IF /I "
%~1"
EQU "-R"
(Set "DIR_RECURSIVE=/S"
& Set "FOR_RECURSIVE=/R"
)
For /F
%%X in ('
Dir /B
%DIR_RECURSIVE% "*.OTF"; "*.TTF"
^| FIND /V /C ""'
) Do (SET "Total=
%%X"
)
For %FOR_RECURSIVE% %%#
in (*.otf; *.ttf
) DO ( CALL Echo: Instalando fuentes de texto...
( %%COUNTER%% de %%TOTAL%% ^) CALL REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" /V "
%%~n#
(%%Font_Type%%)" /D "%%~nx#" /F
>NUL CALL REG ADD "HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows NT\CurrentVersion\Fonts" /V "
%%~n#
(%%Font_Type%%)" /D "%%~nx#" /F
>NUL COPY /Y "
%%#" "
%SystemRoot%\Fonts\"
>NUL )
Echo: Las fuentes de texto se han instalado
! Timeout /T 3
Versión alternativa del script (Se reduce el molesto efecto del borrado de pantalla, pero la ventana queda más pequeña, menos bonita xD)
TITLE Text Font Installer
(By Elektro H
@cker
^) v0.2
Nircmd win center ititle "Fuentes TrueType" 2
>NULCOLOR 07
:: Modo de instalación normal
REM Instalador.bat
:: Modo de instalación recursiva
REM Instalador.bat -R
Takeown /F "
%SystemRoot%\Fonts"
>NULIcacls "
%SystemRoot%\Fonts" /Grant "
%USERNAME%":
(F
) >NULAttrib -R -S "
%SystemRoot%\Fonts"
>NUL
IF /I "
%~1"
EQU "-R"
(Set "DIR_RECURSIVE=/S"
& Set "FOR_RECURSIVE=/R"
)
For /F
%%X in ('
Dir /B
%DIR_RECURSIVE% "*.OTF"; "*.TTF"
^| FIND /V /C ""'
) Do (SET "Total=
%%X"
)
For %FOR_RECURSIVE% %%#
in (*.otf; *.ttf
) DO ( CALL Echo: Instalando fuentes de texto...
( %%COUNTER%% de %%TOTAL%% ^) | MORE
CALL REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" /V "
%%~n#
(%%Font_Type%%)" /D "%%~nx#" /F
>NUL CALL REG ADD "HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows NT\CurrentVersion\Fonts" /V "
%%~n#
(%%Font_Type%%)" /D "%%~nx#" /F
>NUL COPY /Y "
%%#" "
%SystemRoot%\Fonts\"
>NUL CLS
)
Echo: Las fuentes de texto se han instalado
! Timeout /T 3
Saludos