Is a program installed ?

[bourny]

I am looking to determine if a program is installed on my system. I usually check by looking at

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{GUID ID} \DisplayName

This works fine if I know the GUID will stay the same. In my current case there is a good possibility the product will change its GUID and result in my script triggering an update even though the product is installed just under a different GUID,

I have 2 ideas that I dont know how to tackle to work around this issue

1. Output all Guids/keys in HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\ and look thru each display name for the presence of my product name - If it is picked up in any other GUID that I know the GUID hasd changed and to abort the program

2. Somehow other than the registry check the system for the precense of a program called "MY PROGRAM" is installed (Mabe using API / objects etc)

Any help appreciated

[SpookMeister]

Here is a modified snippet of code I used once, it may give you an idea of how to work with your first workaround.

#include <array.au3>
$a_software=_InstalledSoftware()
_ArrayDisplay($a_software)
Func _InstalledSoftware()
    Local $Count = 1
    Local Const $regkey = 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall'

    While 1
        $key = RegEnumKey($regkey, $Count)
        If @error <> 0 Then ExitLoop
        ConsoleWrite($key & @CRLF)
        $line = RegRead($regkey & '\' & $key, 'DisplayName')
        $line = StringReplace($line, ' (remove only)', '')
        If $line <> '' Then
            If Not IsDeclared('avArray') Then Dim $avArray[1][5]
            ReDim $avArray[UBound($avArray) + 1][5]
            $avArray[0][0] = UBound($avArray) - 1
            $avArray[UBound($avArray) - 1][0] = $line
            $avArray[UBound($avArray) - 1][1] = RegRead($regkey & '\' & $key, 'DisplayVersion')
            $avArray[UBound($avArray) - 1][2] = RegRead($regkey & '\' & $key, 'InstallDate')
            $avArray[UBound($avArray) - 1][3] = RegRead($regkey & '\' & $key, 'Publisher')
            $avArray[UBound($avArray) - 1][4] = $key
        EndIf
        $Count = $Count + 1
    WEnd
    If Not IsDeclared('avArray') Then
        SetError(1)
        Return ('')
    Else
        SetError(0)
        
        Return ($avArray)
    EndIf
EndFunc   ;==>_InstalledSoftware

[bourny]

Here is a modified snippet of code I used once, it may give you an idea of how to work with your first workaround.

#include <array.au3>
$a_software=_InstalledSoftware()
_ArrayDisplay($a_software)
Func _InstalledSoftware()
    Local $Count = 1
    Local Const $regkey = 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall'

    While 1
        $key = RegEnumKey($regkey, $Count)
        If @error <> 0 Then ExitLoop
        ConsoleWrite($key & @CRLF)
        $line = RegRead($regkey & '\' & $key, 'DisplayName')
        $line = StringReplace($line, ' (remove only)', '')
        If $line <> '' Then
            If Not IsDeclared('avArray') Then Dim $avArray[1][5]
            ReDim $avArray[UBound($avArray) + 1][5]
            $avArray[0][0] = UBound($avArray) - 1
            $avArray[UBound($avArray) - 1][0] = $line
            $avArray[UBound($avArray) - 1][1] = RegRead($regkey & '\' & $key, 'DisplayVersion')
            $avArray[UBound($avArray) - 1][2] = RegRead($regkey & '\' & $key, 'InstallDate')
            $avArray[UBound($avArray) - 1][3] = RegRead($regkey & '\' & $key, 'Publisher')
            $avArray[UBound($avArray) - 1][4] = $key
        EndIf
        $Count = $Count + 1
    WEnd
    If Not IsDeclared('avArray') Then
        SetError(1)
        Return ('')
    Else
        SetError(0)
        
        Return ($avArray)
    EndIf
EndFunc   ;==>_InstalledSoftware

Excellent - Seems I missed the "RegEnumKey". This is exactly what I need ...