获取仍在连接的最大显示器的分辨率(单、多显示器通用)
本帖最后由 houxiren 于 2016-12-11 16:48 编辑感谢11楼的不知坛友。完美地解决了问题。
不知 坛友的不仅代码编得漂亮,更有代码,有图,有验证文件。帮助解决问题的方式,让人易于学习。非常感谢~!
只要是电脑曾经连接过的显示器,就会在注册表里留下痕迹,且就算该显示器已经断开了,痕迹仍然在。
以WIN7以及WIN10为例,痕迹在HKLM\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{84F85163-5FAD-4F8A-9541-40996D6481C1}
({84F85163-5FAD-4F8A-9541-40996D6481C1}这个名字不同电脑,不同)
如我的电脑共连接过两台显示器,其中一台已断开。用命令Reg Query "HKLM\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO" /s
返回以下数据:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTRO
L\VIDEO\{84F85163-5FAD-4F8A-9541-40996D6481C1}
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTRO
L\VIDEO\{84F85163-5FAD-4F8A-9541-40996D6481C1}\0000
Attach.ToDesktop REG_DWORD 0x1
DefaultSettings.BitsPerPel REG_DWORD 0x20
DefaultSettings.XResolution REG_DWORD 0x556
DefaultSettings.YResolution REG_DWORD 0x300
DefaultSettings.VRefresh REG_DWORD 0x3c
DefaultSettings.Flags REG_DWORD 0x0
DefaultSettings.XPanning REG_DWORD 0x0
DefaultSettings.YPanning REG_DWORD 0x0
DefaultSettings.Orientation REG_DWORD 0x0
DefaultSettings.FixedOutput REG_DWORD 0x0
Attach.RelativeX REG_DWORD 0xfffffaaa
Attach.RelativeY REG_DWORD 0x0
DefaultSettings.DriverExtra REG_BINARY 3C00000001000000150000000100000
00000000000010000000000000100000000000000FF0000009C05000023030000560500000003000
03C00000001000000206F21049C05000000000000206F21040000000001000000000000000000000
00000000001000000010000000100000000000000040000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000200000000000000
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTRO
L\VIDEO\{84F85163-5FAD-4F8A-9541-40996D6481C1}\0001
Attach.ToDesktop REG_DWORD 0x0
DefaultSettings.BitsPerPel REG_DWORD 0x20
DefaultSettings.XResolution REG_DWORD 0x780
DefaultSettings.YResolution REG_DWORD 0x438
DefaultSettings.VRefresh REG_DWORD 0x3c
DefaultSettings.Flags REG_DWORD 0x0
DefaultSettings.XPanning REG_DWORD 0x0
DefaultSettings.YPanning REG_DWORD 0x0
DefaultSettings.Orientation REG_DWORD 0x0
DefaultSettings.FixedOutput REG_DWORD 0x0
Attach.RelativeX REG_DWORD 0x0
Attach.RelativeY REG_DWORD 0x0
DefaultSettings.DriverExtra REG_BINARY 3C00000001000000150000000100000
00000000002010000000000000100000000000000190000009808000065040000800700003804000
03C0000000100000020EED908980800000000000020EED9080000000001000000000000000000000
00000000002000000010000000100000001000000040000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000200000000000000
备注:1,Attach.ToDesktop 的值表示该显示器是否仍处于连接状态,0x0已断开,0x1连接中。
2,分辨率是十六进制的,如以上的,转化成十进制就是
DefaultSettings.XResolution REG_DWORD 0x556 1366
DefaultSettings.YResolution REG_DWORD 0x300 768
DefaultSettings.XResolution REG_DWORD 0x780 1920
DefaultSettings.YResolution REG_DWORD 0x438 1080
目的:如何对比 Attach.ToDesktop*DefaultSettings.XResolution*DefaultSettings.YResolution 值,返回最大的值
如以上就是1*1366*768 > 0*1920*1080 所以返回
X=1366
Y=768
求助坛友前辈,谢谢了!!
@echo off
color 3f
rem 查找%regpath%中所有子项中%regname%的数据是%regdata%时,DefaultSettings.XResolution和DefaultSettings.YResolution的大小,并对结果两者的乘积从大到小排序
rem 鉴于reg命令XP和Win7+不同,故需要Win7以上系统,Win8.1测试通过!
setlocal enabledelayedexpansion
set regpath=HKLM\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO
set regname=Attach.ToDesktop
set regdata=0x1
del %temp%\abcd.tmp /f /q >nul 2>nul
rem 查找指定键值和数据所在的项
rem 查找所有子项
for /f "delims=" %%X in ('reg query "%regpath%" /s /f * /k') do (
rem 在所有子项中查找含有指定键值的项
for /f "tokens=1,2 delims=:" %%Y in ('reg query "%%X" /v "%regname%" 2^>nul ^| findstr /n .') do (
rem 在含有指定键值的项中查找含有特定数据的项
if %%Y==2 set regpathok=%%Z
if %%Y==3 (
echo %%Z | findstr /i /c:"%regdata%" >nul 2>&1
if !errorlevel!==0 (
rem 查找完毕,此处的变量regpathok就是指定键值和数据所在的项
for /f "tokens=1,2 delims=:" %%a in ('reg query "!regpathok!" /v "DefaultSettings.?Resolution" ^| findstr /n .') do (
if %%a==2 set AAA=%%b
if %%a==3 for /f "tokens=3" %%c in ("%%b") do set /a XRES=%%c
if %%a==4 for /f "tokens=3" %%d in ("%%b") do set /a YRES=%%d
if %%a==6 set /A XYRES=!XRES!*!YRES! && echo !XYRES! !XRES!×!YRES! !AAA! >>%temp%\abcd.tmp
)
)
)
)
)
sort %temp%\abcd.tmp /o %temp%\abcd_sort.txt
echo 计算结果 分辨率 注册表路径 >%temp%\abcd_sortb.txt
type %temp%\abcd_sort.txt>>%temp%\abcd_sortb.txt
start %temp%\abcd_sortb.txt
exit
虽然我对楼主说的还是有些迷迷糊糊的,也没有楼主的条件(多显示器)。但楼主说的第二个方法里的有些过程是可以通过批处理实现的。
1.数学计算:
set /A (数学表达式)
2.进行数字比较。
if /I 表达式 命令
set X_org=00000780
set Y_org=00000438
set /a X=0x%X_org%
set /a Y=0x%Y_org%
echo %X% %Y% 不知 发表于 2016-12-10 17:55
虽然我对楼主说的还是有些迷迷糊糊的,也没有楼主的条件(多显示器)。但楼主说的第二个方法里的有些过程是 ...
你就把我公布的注册表内容当成一个txt文本来,你怎么计算呢? slore 发表于 2016-12-10 19:54
好像没什么用,但谢谢回复。 这样再运行上面的代码就一定能获取有效的分辨率。
楼主这是想干嘛?我记得多显示器重新连接好像会记住设置的 本帖最后由 不知 于 2016-12-10 22:33 编辑
houxiren 发表于 2016-12-10 21:10
你就把我公布的注册表内容当成一个txt文本来,你怎么计算呢?
由于方便计算,我把第一个值改为了00000001
reg.txt的内容:
计算.cmd的内容:
@echo off
setlocal DISABLEDELAYEDEXPANSION
SET ret=1
for /f "skip=1 tokens=1,2 delims=: " %%i in (reg.txt) do call :run %%j
echo 计算的结果是%ret%
if /I %ret% EQU 0 echo 计算值等于0
pause
exit
rem 以下代码需放到末尾
:run
echo %1
set /A temp = 0x%1
echo %temp%
set /Aret *= 0x%1
结果:
未修改为0时的结果:
文件:
不知 发表于 2016-12-10 22:30
由于方便计算,我把第一个值改为了00000001
reg.txt的内容:
太感谢您了。问题还没解决,是我表述不清,已重新写了情况及要求,期盼您再看一下,谢谢。 楼主的意思是这样的吗?
查找HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTRO
L\VIDEO\{84F85163-5FAD-4F8A-9541-40996D6481C1}所有,Attach.ToDesktop数据为0x1的子项,找出这些子项中DefaultSettings.XResolution和DefaultSettings.YResolution最大的一对,算成10进制,需不需要提供最大值所在的组册表路径,最大值以XResolution还是以YResolution为准? 私下认为对于这种计算使用VBS比批处理更适合点,一是不出现黑框,二是速度更快,三是可以直接使用穷举来读取注册表并进行比较。 重新写了一下批出理。
内容:
@echo off
set ret1=0
set ret2=0
set defX=1
set tempA=0
set tempX=0
set tempY=0
for /f "skip=1 tokens=1,2 delims=:" %%i in ('type v.reg') do call :run "%%i" %%j
echo%key% X= %X% Y= %Y%
pause
exit
:run
set temp=%1
set temp1=%2
if %ret1% GTR %ret2% (
set /a X= 0x%tempX%
set /a Y= 0x%tempY%
set key=%tempkey%
set ret2=%ret1%
)
if "%temp:~2,4%"=="HKEY" set tempkey=%temp:~2,131%
if "%temp:~2,16%"=="Attach.ToDesktop" set tempA=%temp1%
if "%temp:~19,1%"=="R" (
if %defX%==1 (
set tempX=%temp1%
set defX=2
)
if %defX%==2 (
set tempY=%temp1%
set defX=3
)
)
if "%temp:~19,1%"=="R" (
if %defX%==4 (
set /A ret1 = 0x%tempA% * 0x%tempX% * 0x%tempY%
rem echo %tempX% %tempY%
set defX=1
)
if %defX%==3 set defX=4
)
结果:
试验文件:
不知 发表于 2016-12-11 12:45
重新写了一下批出理。
内容:
@echo off
太感谢了。完美解决问题。谢谢您。
另,不仅是问题解决得完美,而解决时,还带贴出代码,更附有试验文件,让我以及对此问题也有兴趣的坛友可以更快速直观的学习。
谢谢!!!!!!!!!!!! 测试结果
计算结果 分辨率 注册表路径
2073600 1920×1080 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{2756EFE0-141B-417C-8C60-EBE9120A8CE4}\0000
2073600 1920×1080 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{2756EFE0-141B-417C-8C60-EBE9120A8CE4}\0000\Mon040F0400
2073600 1920×1080 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{68406533-4ED4-4540-9848-B9D678A7B02C}\0000
2073600 1920×1080 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{B1FA947A-67EB-4A40-93DB-691D2D5B10B4}\0000
2073600 1920×1080 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{D1AE77D7-21DA-4BC8-9393-A893FFA87807}\0000
2073600 1920×1080 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{D1AE77D7-21DA-4BC8-9393-A893FFA87807}\0000\Mon040F0400
2073600 1920×1080 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{DC19E068-0AD4-4D51-ACBE-67C7CB00CED0}\0000
786432 1024×768 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{0790EF58-A28C-4FE8-8D55-C0EF3DCB17C0}\0000
786432 1024×768 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{2776978B-DD19-4AA0-A9F6-C0CD9ABA7DE0}\0000
786432 1024×768 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{2776978B-DD19-4AA0-A9F6-C0CD9ABA7DE0}\0000\Mon54445648
nttwqz 发表于 2016-12-11 17:08
太感谢您的回复了。你的代码也能完美实现目的。
您的代码的思路,对于我的另一个目的有关联。还想请您再帮助。
1,在Extensions目录下,存在着一些子目录,名称不固定。
2,这些子目录下,都各自存在一个子目录,名称也不固定。
3,这些子目录下,存在一个 _locales 目录(极个别会没有这个目录,比如图中的lmplhafgobijlmngdfmpgliebgkkalpn目录下就没有)
要求:_locales 目录下,如果存在en目录和ZH_CN目录一律保留,其余的同级目录删除。
如果_locales 目录下,没有en目录,而有en_GB目录,则保留en_GB目录。
houxiren 发表于 2016-12-12 10:34
太感谢您的回复了。你的代码也能完美实现目的。
您的代码的思路,对于我的另一个目的有关联。还想请 ...
批处理内容:
@echo off
set root=.\Extensions
rem 目录遍历
for /f %%i in ('dir /A:D /B "%root%"') do (
if exist "%root%\%%i\_locales" call :del"%root%\%%i\_locales"
)
goto :EOF
:del
for /f %%i in ('dir /A:D /B %1') do (
if /I not %%i==ZH_CN if /I not %%i==enif /I not %%i==en_GB rd /s /q %1\%%i
if exist %1\en if exist %1\en_GB rd /s /q %1\en_GB
)
pause
测试文件:
本帖最后由 houxiren 于 2016-12-12 13:17 编辑
不知 发表于 2016-12-12 12:42
批处理内容:
@echo off
set root=.\Extensions
我上传个测试文件,您再帮忙看一下。谢谢 不知 发表于 2016-12-12 12:42
批处理内容:
@echo off
set root=.\Extensions
少遍历了一级,下午改。 houxiren 发表于 2016-12-12 13:15
我上传个测试文件,您再帮忙看一下。谢谢
修改了一下,支持多级目录遍历。
内容:
@echo off
set root=%CD%
call :find "%CD%"
rem 目录遍历
:find
CD %1
for /f "delims=/" %%i in ('dir /A:D /B') do (
if exist "%%i\_locales" call :del"%%i\_locales"
ifnot exist "%%i\_locales"call :find "%%i"
)
if not "%root%"=="%CD%" CD ..
if "%root%"=="%CD%" pause && exit
goto :EOF
:del
for /f %%i in ('dir /A:D /B %1') do (
if /I not %%i==ZH_CN if /I not %%i==enif /I not %%i==en_GB rd /s /q %1\%%i
if exist %1\en if exist %1\en_GB rd /s /q %1\en_GB
)
echo cleaning %CD%\%1
文件:
houxiren 发表于 2016-12-12 10:34
太感谢您的回复了。你的代码也能完美实现目的。
您的代码的思路,对于我的另一个目的有关联。还想请 ...
说白了就是精简掉多余的语言文件?
搜索一下,删除不就可以了…… 不知 发表于 2016-12-12 17:13
修改了一下,支持多级目录遍历。
内容:
@echo off
谢谢不知先生,完美解决。
页:
[1]