Изменить шрифт в Win10

#NoTrayIcon

Local $aLV_List[7][4] = [ _
        ['Общий для всех', 0], _
        ['Значки', 13], _
        ['Меню:', 12], _
        ['Подсказки', 12], _
        ['Заголовки окон', 12], _
        ['Названия панелей', 12], _
        ['Окна сообщений', 12]]
; Если задан общий шрифт между 9 и 14, то используем его
If $aLV_List[0][1]>8 And $aLV_List[0][1]<15 Then
    For $i = 1 To 6
        $aLV_List[$i][1] = $aLV_List[0][1]
    Next
EndIf
Run('rundll32.exe shell32.dll,Control_RunDLL desk.cpl') ; Запуск панели
; Run('rundll32.exe shell32.dll,Control_RunDLL desk.cpl desk,@ScreenSaver') ; WinXP
; $hWnd1 = WinWait("[TITLE:Разрешение экрана]", "Опр&еделить", 3) ; без таймаута (5) ожидание бесконечно
$hWnd1 = WinWait("[TITLE:Панель управления\Оформление и персонализация\Экран\Разрешение экрана]", "Опр&еделить", 2) ; без таймаута (5) ожидание бесконечно
If Not $hWnd1 Then Exit MsgBox(4096, 'Сообщение', 'Окно "Разрешение экрана" не найдено.')
ControlClick($hWnd1, '', '[CLASS:ToolbarWindow32; INSTANCE:2]', "main", 1) ; Кликаем "на уровень вверх", для перехода
; $hWnd1 = WinWait("[TITLE:Экран]", "Чтобы изменить размер текста, приложени", 3) ; без таймаута (3) ожидание бесконечно
$hWnd1 = WinWait("[TITLE:Панель управления\Оформление и персонализация\Экран]", "Чтобы изменить размер текста, приложени", 2) ; без таймаута (3) ожидание бесконечно
If Not $hWnd1 Then Exit MsgBox(4096, 'Сообщение', 'Окно "Экран" не найдено.')
; Вводим указанный шрифт
For $i = 1 To 6
    ControlCommand($hWnd1, "", "ComboBox1", "SelectString", $aLV_List[$i][0])
    ControlCommand($hWnd1, "", "ComboBox2", "SelectString", $aLV_List[$i][1])
Next
ControlClick($hWnd1, '', '[CLASS:Button; INSTANCE:2]', "main", 1) ; Кликаем "ОК"
WinClose($hWnd1)