如何实现检测计算机又没有安装特定软件

bilin1234

用Vb做个界面，加载时候，后台检测计算机有没有安装matlab等软件

如果有，加载下一个节目

没有安装，提示计算机没有安装matlab软件

谢谢

siyonggang

检查注册表里面有没有相应的键值，给你个检测是否安装了excel的例子

Public Const HKEY_LOCAL_MACHINE As Long = &H80000002
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long


    Dim lRet As Long, hKey As Long
    lRet = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Office\11.0\Excel", hKey)
   
    If lRet <> 0 Then
       'no excel instralled
    Else
        'excel installed
        lRet = RegCloseKey(hKey)
    End If

Matlab的键值你找台安装过的打开注册表看看就知道了

另外一种方法就是，你创建matlab对象，如果出错就说明机器上没有安装

thetian

都上说的是，应该从注册表入手。

acd_lz_dc

siyonggang 发表于 2020-6-30 09:30
检查注册表里面有没有相应的键值，给你个检测是否安装了excel的例子

Public Const HKEY_LOCAL_MACHINE As  ...

学到一招，谢谢！

doogzz

按2楼的代码,如果系统安装的是Excel，那不是也会认为没有装Excel ?

talent00168

Function install(ByVal exefilename As String) As String
On Error GoTo myerr
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
install = "<" & exefilename & "> was installed in " & WSH.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\" & exepath & "\Path")
Set WSH = Nothing
Exit Function
myerr:
install = "<" & exefilename & "> was Not installed in my system"
End Function

Sub xxx()
MsgBox install("matlab.exe")
End Sub

doogzz

楼上的好像还是没有解决注册表中的具体路径问题,假如matlab.exe是一绿色软件又该怎么办?

mayhem

1 查看那个程序的注册表相关项
2 查看注册表HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall有无那个程序的反安装项
3 查看开始菜单的相关项