精易模块

zhouli5464

双显卡环境下, 只能识别到一张显卡的存在

  

子程序名	返回值类型	公开	备 注
系统_取显卡信息列表	整数型		返回显卡数量，0为失败
参数名	类 型	参考	可空	数组	备 注
显卡信息列表	精易_显卡信息				用于接收显卡信息列表

变量名	类 型	静态	数组	备 注
objWbemLocator	对象
objWMIService	对象
objController	对象
objNewEnum	对象
ptr	整数型
hr	整数型
Variant	变体型
pcFetched	整数型
objClass	对象
objProperties	对象
NvidiaInfo	精易_显卡信息

清除数组 (显卡信息列表)
如果真 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, ) ＝ 假)
返回 (0)
objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “root\CIMV2”)
如果真 (objWMIService.是否为空 ())
返回 (0)
objController ＝ objWMIService.对象型方法 (“ExecQuery”, “SELECT * FROM Win32_VideoController”)
如果真 (objController.是否为空 ())
返回 (0)
objNewEnum ＝ objController.对象型方法 (“_NewEnum”, )
如果真 (objNewEnum.是否为空 ())
返回 (0)
ptr ＝ 取对象指针 (objNewEnum)
循环判断首 ()
hr ＝ COM_调用COM方法 (ptr, 3, 1, 取变体型指针 (Variant), pcFetched, , , , , , , )
如果真 (hr ≠ 0)
到循环尾 ()
objClass ＝ Variant.取对象 ()
objProperties ＝ objClass.读对象型属性 (“Properties_”, )
NvidiaInfo.驱动程序版本号 ＝ objProperties.对象型方法 (“Item”, “DriverVersion”).读文本属性 (“value”, )
NvidiaInfo.显卡名称 ＝ objProperties.对象型方法 (“Item”, “Name”).读文本属性 (“value”, )
NvidiaInfo.内存大小 ＝ 整数_有符号转无符号 (objProperties.对象型方法 (“Item”, “AdapterRAM”).读数值属性 (“value”, ))
NvidiaInfo.描述 ＝ objProperties.对象型方法 (“Item”, “Caption”).读文本属性 (“value”, )
NvidiaInfo.详细描述 ＝ objProperties.对象型方法 (“Item”, “Description”).读文本属性 (“value”, )
加入成员 (显卡信息列表, NvidiaInfo)
循环判断尾 (pcFetched ＝ 1)
返回 (取数组成员数 (显卡信息列表))

.版本 2<br /> <br /> .子程序 系统_取显卡信息列表, 整数型, 公开, 返回显卡数量，0为失败<br /> .参数 显卡信息列表, 精易_显卡信息, 参考 可空 数组, 用于接收显卡信息列表<br /> .局部变量 objWbemLocator, 对象<br /> .局部变量 objWMIService, 对象<br /> .局部变量 objController, 对象<br /> .局部变量 objNewEnum, 对象<br /> .局部变量 ptr, 整数型<br /> .局部变量 hr, 整数型<br /> .局部变量 Variant, 变体型<br /> .局部变量 pcFetched, 整数型<br /> .局部变量 objClass, 对象<br /> .局部变量 objProperties, 对象<br /> .局部变量 NvidiaInfo, 精易_显卡信息<br /> <br /> 清除数组 (显卡信息列表)<br /> .如果真 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, ) ＝ 假)<br />     返回 (0)<br /> .如果真结束<br /> objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “root\CIMV2”)<br /> .如果真 (objWMIService.是否为空 ())<br />     返回 (0)<br /> .如果真结束<br /> objController ＝ objWMIService.对象型方法 (“ExecQuery”, “SELECT * FROM Win32_VideoController”)<br /> .如果真 (objController.是否为空 ())<br />     返回 (0)<br /> .如果真结束<br /> objNewEnum ＝ objController.对象型方法 (“_NewEnum”, )<br /> .如果真 (objNewEnum.是否为空 ())<br />     返回 (0)<br /> .如果真结束<br /> ptr ＝ 取对象指针 (objNewEnum)<br /> .循环判断首 ()<br />     hr ＝ COM_调用COM方法 (ptr, 3, 1, 取变体型指针 (Variant), pcFetched, , , , , , , )<br />     .如果真 (hr ≠ 0)<br />         到循环尾 ()<br />     .如果真结束<br />     objClass ＝ Variant.取对象 ()<br />     objProperties ＝ objClass.读对象型属性 (“Properties_”, )<br />     NvidiaInfo.驱动程序版本号 ＝ objProperties.对象型方法 (“Item”, “DriverVersion”).读文本属性 (“value”, )<br />     NvidiaInfo.显卡名称 ＝ objProperties.对象型方法 (“Item”, “Name”).读文本属性 (“value”, )<br />     NvidiaInfo.内存大小 ＝ 整数_有符号转无符号 (objProperties.对象型方法 (“Item”, “AdapterRAM”).读数值属性 (“value”, ))<br />     NvidiaInfo.描述 ＝ objProperties.对象型方法 (“Item”, “Caption”).读文本属性 (“value”, )<br />     NvidiaInfo.详细描述 ＝ objProperties.对象型方法 (“Item”, “Description”).读文本属性 (“value”, )<br />     加入成员 (显卡信息列表, NvidiaInfo)<br /> .循环判断尾 (pcFetched ＝ 1)<br /> 返回 (取数组成员数 (显卡信息列表))

malagebi

双显卡是指一个是集成显卡，一个是独显？

wang12345

原封不动复制粘贴？？？