code:

---

 ;---------------------------------
; Extract Uninstall options (Installed programs)
;---------------------------------
$Num = 1
$RootKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
GoSub GetProgInfo
$RootKey = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
GoSub GetProgInfo 

---

code:

---

$Index = 0
$Key = EnumKey($RootKey, $Index)
While @Error = 0
	$RC = EnumValue($RootKey + $Key, 1)
	If @Error = 0
		$Value = ReadValue($RootKey + $Key, "DisplayName")
		If $Value = ""
			$Value = ReadValue($RootKey + $Key, "QuietDisplayName")
			If $Value = ""
				$Value = $Key
			EndIf
		EndIf
		$RC = WriteProfileString("$WSInfoFile", "ProgramInfo", "$Num", "$Value")
		$Num = $Num + 1
	EndIf
	$Index = $Index + 1
	$Key = EnumKey($RootKey, $Index)
Loop
Return  

---