GénérationFonts.txt

$numberOfFile = 0
$fontList = 0
$fontListInFontFile = @WindowsDir & "\Fonts\"
$ArrayOfFontListInfFontFile = _FileListToArray($fontListInFontFile, "*.TTF", 1)
For $element In $ArrayOfFontListInfFontFile
    $numberOfFile = $numberOfFile + 1
Next
For $counter = 1 To $numberOfFile
    $RegValue = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Fonts", $counter)
    FileWrite($fileFont, $RegValue & @CRLF)
Next
_ReplaceStringInFile($fileFont, "(TrueType)", "")
_ReplaceStringInFile($fileFont, "Bold", "")
_ReplaceStringInFile($fileFont, "Italic", "")