无忧启动论坛

标题: 获取仍在连接的最大显示器的分辨率（单、多显示器通用） [打印本页]

作者: houxiren 时间: 2016-12-10 17:17
标题: 获取仍在连接的最大显示器的分辨率（单、多显示器通用）
本帖最后由 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

求助坛友前辈，谢谢了！！

{84F85163-5FAD-4F8A-9541-40996D6481C1}.zip

869 Bytes, 下载次数: 9

作者: 不知 时间: 2016-12-10 17:55
虽然我对楼主说的还是有些迷迷糊糊的，也没有楼主的条件（多显示器）。但楼主说的第二个方法里的有些过程是可以通过批处理实现的。
1.数学计算：
set /A (数学表达式)

2.进行数字比较。
if /I 表达式命令

作者: slore 时间: 2016-12-10 19:54

set X_org=00000780
set Y_org=00000438
set /a X=0x%X_org%
set /a Y=0x%Y_org%
echo %X% %Y%

复制代码

作者: houxiren 时间: 2016-12-10 21:10

不知发表于 2016-12-10 17:55
虽然我对楼主说的还是有些迷迷糊糊的，也没有楼主的条件（多显示器）。但楼主说的第二个方法里的有些过程是 ...

你就把我公布的注册表内容当成一个txt文本来，你怎么计算呢？

作者: houxiren 时间: 2016-12-10 21:11

slore 发表于 2016-12-10 19:54

好像没什么用，但谢谢回复。

作者: nttwqz 时间: 2016-12-10 21:33

这样再运行上面的代码就一定能获取有效的分辨率。

楼主这是想干嘛？我记得多显示器重新连接好像会记住设置的

作者: 不知 时间: 2016-12-10 22:30
本帖最后由不知于 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 /A ret *= 0x%1

结果：

未修改为0时的结果：

文件：

计算.7z (608 Bytes, 下载次数: 3)

作者: houxiren 时间: 2016-12-11 08:52

不知发表于 2016-12-10 22:30
由于方便计算，我把第一个值改为了00000001
reg.txt的内容：

太感谢您了。问题还没解决，是我表述不清，已重新写了情况及要求，期盼您再看一下，谢谢。

作者: nttwqz 时间: 2016-12-11 09:45
楼主的意思是这样的吗？

查找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为准？

作者: 9zhmke 时间: 2016-12-11 11:12
私下认为对于这种计算使用VBS比批处理更适合点，一是不出现黑框，二是速度更快，三是可以直接使用穷举来读取注册表并进行比较。

作者: 不知 时间: 2016-12-11 12:45
重新写了一下批出理。
内容：
@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
)
结果：

试验文件：

计算.7z (1.11 KB, 下载次数: 13)

作者: houxiren 时间: 2016-12-11 16:41

不知发表于 2016-12-11 12:45
重新写了一下批出理。
内容：
@echo off

太感谢了。完美解决问题。谢谢您。

另，不仅是问题解决得完美，而解决时，还带贴出代码，更附有试验文件，让我以及对此问题也有兴趣的坛友可以更快速直观的学习。

谢谢！！！！！！！！！！！！

作者: nttwqz 时间: 2016-12-11 17:08

@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

复制代码

作者: nttwqz 时间: 2016-12-11 17:10

测试结果
计算结果分辨率注册表路径
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

复制代码

作者: houxiren 时间: 2016-12-12 10:34

nttwqz 发表于 2016-12-11 17:08

太感谢您的回复了。你的代码也能完美实现目的。

您的代码的思路，对于我的另一个目的有关联。还想请您再帮助。

1，在Extensions目录下，存在着一些子目录，名称不固定。
2，这些子目录下，都各自存在一个子目录，名称也不固定。
3，这些子目录下，存在一个 _locales 目录（极个别会没有这个目录，比如图中的lmplhafgobijlmngdfmpgliebgkkalpn目录下就没有）

要求：_locales 目录下，如果存在en目录和ZH_CN目录一律保留，其余的同级目录删除。
如果_locales 目录下，没有en目录，而有en_GB目录，则保留en_GB目录。

2016-12-12_102851.png (16.22 KB, 下载次数: 93)

作者: 不知 时间: 2016-12-12 12:42

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==en if /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
测试文件：

test.7z (537 Bytes, 下载次数: 1)

作者: houxiren 时间: 2016-12-12 13:15
本帖最后由 houxiren 于 2016-12-12 13:17 编辑

不知发表于 2016-12-12 12:42
批处理内容：
@echo off
set root=.\Extensions

我上传个测试文件，您再帮忙看一下。谢谢

Documents.zip

138.76 KB, 下载次数: 2

作者: 不知 时间: 2016-12-12 13:15

不知发表于 2016-12-12 12:42
批处理内容：
@echo off
set root=.\Extensions

少遍历了一级，下午改。

作者: 不知 时间: 2016-12-12 17:13

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"
if  not 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==en  if /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

文件：

clean.7z (31.55 KB, 下载次数: 7)

作者: nttwqz 时间: 2016-12-12 17:26

houxiren 发表于 2016-12-12 10:34
太感谢您的回复了。你的代码也能完美实现目的。

您的代码的思路，对于我的另一个目的有关联。还想请 ...

说白了就是精简掉多余的语言文件？

搜索一下，删除不就可以了……

作者: houxiren 时间: 2016-12-13 08:51

不知发表于 2016-12-12 17:13
修改了一下，支持多级目录遍历。
内容：
@echo off

谢谢不知先生，完美解决。

欢迎光临无忧启动论坛 (http://bbs.wuyou.net./)