如何检测电脑是否安装了.net framework

新客网 XKER.COM 2004-09-24 来源：收藏本文

检查/%windir%/System32/下面是否含有MSCOREE.DLL文件如果有就所名已经安装了FM
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\policy下可以检查到机器上安装了那些版本的FM

具体函数:

Public Function DoesDotNETFrameworkExist(ByVal udeVersion As DotNETFrameworkVersions) As Boolean

Dim o_blnRet As Boolean
Dim o_strRet As String

With New cRegistry
.hKey = HKEY_LOCAL_MACHINE
.KeyPath = "Software\Microsoft\.NETFramework"
If .DoesKeyExist() Then
.KeyPath = "Software\Microsoft\.NETFramework"
o_strRet = GetRegValue(.GetRegistryValue("InstallRoot", ""))
o_blnRet = (o_strRet <> "")
If o_blnRet Then
With New cFileFuncs
Select Case udeVersion
Case dnfvV1
o_blnRet = .DoesFileExistEx(o_strRet & "v1.0.3705\mscorlib.dll")
Case dnfvV1_1
o_blnRet = .DoesFileExistEx(o_strRet & "v1.1.4322\mscorlib.dll")
Case dnfvVAny
o_blnRet = .DoesFileExistEx(o_strRet & "v1.0.3705\mscorlib.dll")
If o_blnRet Then
Else
o_blnRet = .DoesFileExistEx(o_strRet & "v1.1.4322\mscorlib.dll")
End If
End Select
End With
Else

End If
Else
o_blnRet = False
End If
End With

DoesDotNETFrameworkExist = o_blnRet

End Function

上一篇：操作必须使用一个可更新的查询下一篇：上传文件至Oracle数据库

【收藏】【评论】【推荐】【投稿】【打印】【关闭】