How to detect computer without specific software installed

bilin1234

Use Vb as an interface. When loading, check whether the computer has matlab and other software installed in the background.

If yes, load the next show

No installation, prompting that the computer does not have matlab software installed

Thank you

siyonggang

Check whether there is a corresponding key value in the registry, give you an example of detecting whether excel is installed

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

You can find the key value of Matlab after you have installed it and open the registry.

Another method is that you create a matlab object, if there is an error, it means that it is not installed on the machine

thetian

It is said that we should start with the registration form.

acd_lz_dc

siyonggangpublished on 2020-6-30 09:30
Check whether there is a corresponding key value in the registry, give you an example of detecting whether excel is installed

Public Const HKEY_LOCAL_MACHINE As ...

Learned a trick, thank you!

doogzz

According to the code on the second floor, if the system is installed with Excel, wouldn't it be considered that Excel is not installed?

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

The upstairs still doesn't solve the specific path problem in the registry. What if matlab.exe is a green software?

mayhem

1 Check the registry entries of that program
2 Check the registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall for the anti-installation item of that program
3 View related items in the start menu