获取机器DirectX版本

来源： 作者： 出处：巧巧读书 2006-05-21 进入讨论组

• 关 键 词：
• microsoft
• windows
• rip

'引用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

保留：： http://www.qqread.com/vb/f375112002.html进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：关于日期的中文转换

较新的文章：VB创建多线程应用程序(二)