Smarty, я в своем winpe пользуюсь также Display Changer
Код на автоите (не помню у кого взял)
Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=icon.ico
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Global Const $STDOUT_CHILD = 2
Opt("TrayIconHide",1)
$h=Run("dccmd.exe -max -test", "", @SW_HIDE, $STDOUT_CHILD)
$sRes = ""
While 1
$sRes &= StdoutRead($h)
If @error Then ExitLoop
Sleep(25)
WEnd
$iWidth=StringRegExpReplace($sRes,"(?si).*Width:\s+(\d+).*","\1")
$iHeight=StringRegExpReplace($sRes,"(?si).*Height:\s+(\d+).*","\1")
$iColor=StringRegExpReplace($sRes,"(?si).*Color:\s+(\d+).*","\1")
FileCreateShortcut("dccmd.exe",@DesktopDir & "\Разрешение " & $iWidth & "x"& $iHeight &".lnk",@WindowsDir,"-max -refresh=60", "", @SystemDir & "\shell32.dll", "", "94", @SW_HIDE)