读取注册表方法不用说了。
解决方案 »
- VB6.0如何封装类文件
- DATEADD的日期随时间变化的问题~~~如何在跨越00:00的时候使得日期也自动变化呢???
- 高人指点!如何利用vb访问我放在租用的web服务器上的access数据库
- WEB调用ACTIVEX出错!
- xp下的如何锁定键盘和鼠标?
- SQL的脚本文件怎么在VB里执行?非DOS的!
- 调用什么函数来打开帮助文件(.chm)?
- 急急。。关于16进制颜色转换如:#FF6600如何转换为vb中属性中设置的颜色带H开头
- 急!急!急!急!如何在VB程序中实现自动传递E-Mail用户名登录elong,WEB页面信箱????急!急!急!急!
- 在VB中怎样来显示数据库中的二进制文件???
- 请问VB中DataReport如何进行纸张设置?
- 我在ftp服务器上新建了一个虚拟目录,怎样通过程序访问该虚拟目录?
C:\WINNT\Microsoft.NET
判断注册表:如果存在就认为是已经安装:
\LocalMachine\software\microsoft\.NetFrameWork下面的
InstallRoot(=C:\WINDOWS\Microsoft.NET\Framework\)存放安装目录,不同的版本安装在不同的目录下.Policy\v1.0\有版本信息.
在部署中设定检查是否安装过.net framework
http://support.microsoft.com/default.aspx?scid=kb;zh-cn;315291
正在考虑别的方法..............
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
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 With
Else
End If
Else
o_blnRet = False
End If
End With
DoesDotNETFrameworkExist = o_blnRet
End Function