获取机器DirectX版本

发布: 2007-6-21 21:57 | 作者: | 来源: | 查看: 81次 | 进入软件测试论坛讨论

'引用windows scripting host object model
Private Sub Form_Load()
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
End Sub

延伸阅读

文章来源于领测软件测试网 https://www.ltesting.net/

软件测试论坛

领测软件测试网最新更新

软件测试技术相关文章

软件测试培训信息

最新软件测试技术专题

最新领测软件测试网新闻

软件测试技术文章排行榜

编辑推荐
周排行
月排行

软件测试技术分类最新内容