[更新(2022/11/11) ModernUI回归] explorer再见，WinXShell你好！

kenhun99

小白完全看不懂

yhage

看起来和explorer差别不大

2013qq413958

感谢分享

hua_wuxin

WinXShell_RC5.1.4_beta9a版显卡名称和显存大小好像不能正确显示？有没有能正常显示的新版？

slore

hua_wuxin 发表于 2025-5-8 15:14
WinXShell_RC5.1.4_beta9a版显卡名称和显存大小好像不能正确显示？有没有能正常显示的新版？

GPU信息是从 Services\BasicDisplay\Video 下读取 VID，然后到 CurrentControlSet\Control\Video 下面获取显存。
没装显卡驱动的话，无法获取，我测试 beta9a 可以获取 系统基本显示器，还有正式系统的RTX显卡信息。




function gpu_info()
  local arr = {}
  local vid = Reg:Read([[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\BasicDisplay\Video]],
    'VideoID')
  local gpu = nil
  if vid then
    gpu = Reg:Read([[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Video\]] .. vid ..[[\0000]],
      {'DriverDesc', 'HardwareInformation.qwMemorySize'})
  end

  if gpu == nil then
    arr['name'] = '-'
    arr['memsize'] = 0
  else
    arr['name'] = gpu['DriverDesc'] or '-'
    arr['memsize'] = gpu['HardwareInformation.qwMemorySize'] or 0
  end

  if arr['memsize'] > 0 then
    arr['memsize_gb'] = math.ceil(arr['memsize'] / 1024 / 1024 / 1024)
  else
    arr['memsize_gb'] = '-'
  end

  arr['memsize_info'] =  arr['memsize_gb'] .. ' GB'
  return arr
end

function localename()
  return App:Call('os::info', 'localename')
end

hua_wuxin

搞定了。发现同文件里有段local stdout = Cmd.Stdout('cmd.exe /c ipconfig.exe /all')，依葫芦画瓢reg query ... /v HardwareInformation.MemorySize再解析结果就行。




Intel集显的HardwareInformation.MemorySize是个REG_BINARY值，regkey:get_value()和Reg:Read()好像都不能正确读取成字符串或者数值。求解决方案。

tonumber('7ffff000', 16) = 2147479552 (2GB)

hua_wuxin

absman1972 发表于 2025-5-10 15:34
slore 大：

我测试了一下从 Services\BasicDisplay 取 VideoID，不适用于所有情况

05-11更正：我原来的代码虽然能工作但其实是有问题的，跟absman1972坛友的代码以及楼主大佬1122楼的代码一组合就不知道哪里出错了，导致界面初始化异常。






我把isBinary()和binaryToNumber(binaryStr)加进我改过的代码中试了，先判断再转换或者不判断直接转换都不行。我觉得问题应该出在前面读注册表读出不知道是什么奇怪的东西（不是字符串、不是数字）。

你如果没有Intel集显环境的话，可以乱建（比如把Video\{82687041-2D88-11F0-8475-EA3147419290}删掉？）个注册表项测试下。

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Video\{82687041-2D88-11F0-8475-EA3147419290}\0000]
"DriverDesc"="Intel(R) Iris(R) Xe Graphics"
"HardwareInformation.MemorySize"=hex:00,f0,ff,7f

reg query方案的显示效果：

hack3678

谢谢分享

slore

hua_wuxin 发表于 2025-5-10 18:37
搞定了。发现同文件里有段local stdout = Cmd.Stdout('cmd.exe /c ipconfig.exe /all')，依葫芦画瓢reg que ...

Intel集显的HardwareInformation.MemorySize是个REG_BINARY值，regkey:get_value()和Reg:Read()好像都不能正确读取成字符串或者数值。求解决方案。

我的 NVIDIA GeForce RTX 4060 Ti 显卡的内存值是 REG_DWORD 和 REG_QWORD保存的，
HardwareInformation.MemorySize 是 4G， HardwareInformation.hwMemorySize 是 8 GB，
所以我用了 hwMemorySize 。

根据2位的反馈，这里需要不少逻辑来处理。

首先， Reg:Read()会返回2个结果，一个是值，一个是类型。
对于REG_BINARY，winapi库的buff是2048，所以2K以内可以读取到，
超过2K的话，value直接是 nil 出错了。

对于4字节，8字节的数值型的话，可以直接读取到的，返回类型是string。
可以通过 string.unpack() 按4字节，8字节数值解出来字节流。

slore

absman1972 发表于 2025-5-10 15:34
slore 大：

我测试了一下从 Services\BasicDisplay 取 VideoID，不适用于所有情况

local function get_value_by_type(val, type)
    if type == REG_BINARY then
        return string.unpack("I" .. #val, val)
    end
    -- REG_DWORD, REG_QWORD
    return val
end


local mem_val = nil
local mem_type = nil
local mem_size = 0
mem_val, mem_type = Reg:Read([[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Video\{1722DE72-EC5D-11EF-8E37-806E6F6E6963}\0000]], 'HardwareInformation.qwMemorySize')
if mem_val then
    mem_size = get_value_by_type(mem_val, mem_type)
end


Alert(mem_size)

我发现办公电脑的集成显卡，显存是 128 MB， 单位转换函数也得改下，除以1024小于1的话，
保持本身单位，不能无脑按GB显示， 0.128 GB 很尴尬。

kevinying16

感谢分享

hua_wuxin

absman1972 发表于 2025-5-11 00:02
我汇入你提供的资料(如下)，然后强制 vid 为 {82687041-2D88-11F0-8475-EA3147419290} 后读取也没有任何 ...

我的local memorysize = subkey:get_value('HardwareInformation.qwMemorySize') or subkey:get_value('HardwareInformation.MemorySize') or 0好像有问题，改成local memorysize, datatype = ...后用string.unpack不正常。改掉后才好了。

hua_wuxin

我想把CPU信息中的(R)和(TM)替换为®和™缩短下长度，但得到了乱码。我看了下page.systeminfo.lua已经是UTF8编码的。
请教下有没有简单的解决方法？

1. local s = cpu_t['name']
   
2.         local i = string.find(s, '@')
   
3.         if i then s = string.sub(s, 1, i - 1) end
   
4.         s = string.gsub(s, '%(R%)', '®')
   
5.         s = string.gsub(s, '%(TM%)', '™')
   
6.         set_text('card_cpuname_text', s)

复制代码

slore

hua_wuxin 发表于 2025-5-11 08:17
我想把CPU信息中的(R)和(TM)替换为®和™缩短下长度，但得到了乱码。我看了下page.systeminfo.lua ...

Windows不支持utf8，要转unicode，lua文件的utf8按ansi对待的。
考虑这行xml的font改用小字体。

cc2005

看起来很牛逼。谢谢分享。

rengrancunzai

谢谢分享

slore

补一个大小转单位的辅助函数。
下午更新一下。

Format = {}
Fmt = Format


function Format.SizeUnit(size, fmt)
    local units = {"Bytes", "KB", "MB", "GB", "TB"}
    local n = 1
    local quot = size
    while (quot >= 1024) do
        n = n + 1
        quot = quot / 1024
        if n == #units then break end
    end
    return string.format(fmt, quot) .. units[n], quot, units[n]
end


-- test
print(Format.SizeUnit(0, "%.0f ")) -- 0 Bytes
print(Format.SizeUnit(123, "%.0f ")) -- 123 Bytes
print(Format.SizeUnit(1024, "%.0f ")) -- 1 KB
print(Format.SizeUnit(20250505, "%.0f ")) -- 19 MB
print(Format.SizeUnit(20250505, "%.2f ")) -- 19.31 MB
print(Fmt.SizeUnit(0x1ffc00000, "%.0f ")) -- 8 GB
print(Fmt.SizeUnit(1500000000000, "%.2f ")) -- 1.36 TB
print(Fmt.SizeUnit(1500000000000000, "%.0f ")) -- 1364 TB

hack3678

用心了

slore

改动后的GPU获取代码如下：

function gpu_info()
  local arr = {}
  local vid, gpu
  local i = 0
  local vid_num = Reg:Read([[HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\VIDEO]], 'MaxObjectNumber')
  if vid_num then
    for i = 0, vid_num do
      local video = Reg:Read([[HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\VIDEO]], [[\Device\Video]] .. i)
      if video then
        vid = video:match("{[%x-]+}")
        if vid then
          gpu = Reg:Read([[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Video\]] .. vid .. [[\0000]],
          {'DriverDesc', 'HardwareInformation.qwMemorySize', 'HardwareInformation.MemorySize'})
          break
        end
      end
    end
  end

  local mem_val = 0
  arr['name'] = '-'
  arr['memsize_info'] = '- GB'
  if gpu then
    arr['name'] = gpu['DriverDesc'] or '-'
    mem_val = gpu['HardwareInformation.qwMemorySize'] or gpu['HardwareInformation.MemorySize'] or 0
  end

  arr['memsize'] = mem_val
  if type(mem_val) == "string" then
    arr['memsize'] = string.unpack("I" .. #mem_val, mem_val)
  end
  if arr['memsize'] > 0 then
    arr['memsize_info'] = Fmt.SizeUnit(arr['memsize'], "%.0f ")
  end
  return arr
end

slore

hua_wuxin 发表于 2025-5-11 08:17
我想把CPU信息中的(R)和(TM)替换为®和™缩短下长度，但得到了乱码。我看了下page.systeminfo.lua ...

显存大小有不是整数GB的情况，比如GTX 480是1.5G显存。

那就保留1位小数，然后替换.0空格 为 空格。

hua_wuxin

slore 发表于 2025-5-11 13:35
补一个大小转单位的辅助函数。
下午更新一下。

while (quot >= 1024)建议改成while (quot > 999)，循环里仍然除以1024不变。

之前举例的Intel集显显存，取一半是1073739904，用这段代码算出来是：
1024.00MB        1023.9981689453        MB
没能凑整到1GB上。

改后则是：
1.00GB        0.99999821186066        GB

sina@wei

感谢楼主的分享，确实有用

yaowozhuce

谢谢楼主的分享

cyl279

谢谢分享

in9

谢谢科普分享！