本文提供了一个使用Windows Script Host Object查询DirectX版本的示例代码。通过读取注册表中的键值，可以获取DirectX的安装版本及具体版本号。
'引用Windows Scripting Host Object
Dim regwsh, Value, DValue, temp As String
Set regwsh = New IWshShell_Class
DValue = regwsh.RegRead("HKLM/SOFTWARE/MICROSOFT/DirectX/InstalledVersion")
Value = regwsh.RegRead("HKLM/SOFTWARE/MICROSOFT/DirectX/Version")
For i = LBound(DValue) To UBound(DValue)
temp = temp & DValue(i)
Next i
MsgBox "您机器DirectX版本为 :" & vbCrLf & "DirectX " & Mid(temp, 4, 1) & "." & _
Right(temp, 1) & "(" & Value & ")"
Set regwsh = Nothing
VB查看DIRECTX 版本
最新推荐文章于 2020-10-12 15:39:50 发布
扫一扫
2736
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
