Run("explorer.exe")
WinWaitActive("Мои документы", "")
Sleep(100)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; установка русской раскладки клавиатуры для нашего окна
$hWnd = WinGetHandle("Мои документы")
_SetKeyboardLayout("00000419", $hWnd) ; 419 - код русской раскадки клавиатуры
Func _SetKeyboardLayout($sLayoutID, $hWnd)
Local $WM_INPUTLANGCHANGEREQUEST = 0x50
Local $ret = DllCall("user32.dll", "long", "LoadKeyboardLayout", "str", $sLayoutID, "int", 0)
DllCall("user32.dll", "ptr", "SendMessage", "hwnd", $hWnd, "int", $WM_INPUTLANGCHANGEREQUEST, "int", 1, "int", $ret[0])
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ControlSend("Мои документы", "", "ToolbarWindow323", "!е") ; жмем Alt + е (русское) - откр. Сервис
ControlSend("Мои документы", "", "ToolbarWindow323", "а") ; жмем а (русское) - откр. Свойства папки
WinWaitActive("Свойства папки", "")
Sleep(100)
ControlCommand("Свойства папки", "", "[CLASS:SysTabControl32; INSTANCE:1]", "TabRight", "") ; на следующую вкладку вправо
ControlCommand("Свойства папки", "", "[CLASS:SysTabControl32; INSTANCE:1]", "TabRight", "") ; на следующую вкладку вправо
WinWaitActive("Свойства папки", "Сведения для типа файла") ; ждем активации кнопки Дополнительно
Sleep(100)
ControlSend("Свойства папки", "", "[CLASS:Button; INSTANCE:5]", "п") ; жмем п (рус) - нажимаем на кнопку Дополнительно.