Получение названия установленной программы в окне

;---------- Удаление старых версий ------------------
dim $n
Send("^{Esc}")   ; открыть "Пуск"
Send("+{LCtrl}")
Send("{TAB}")
Send("!а")
Send("!а")
WinWaitActive("Панель управления","")
$i = 1
Do
    Send("{DOWN}")
	$n=ControlListView ("Панель управления","","[CLASS:SysListView32; INSTANCE:1]","GetText",$i,0 )
	if $n="Установка и удаление программ" then 
		$i=999		 
	EndIf    
	$i = $i + 1
Until $i = 1000

Send("{ENTER}")
WinWaitActive("Установка и удаление программ","")
WinClose ("Панель управления","") 
Sleep (4000)

$n=;???????????????????????????????????????????

MsgBox(0, "!!!!!!", $n)

$reg = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall"
$i = 1
While 1
    Sleep(100)
    $var1 = RegEnumKey($reg, $i)
	If @error <> 0 then ExitLoop    
	$var2 = RegRead($reg & "\" & $var1, "DisplayName")
	If $var2 <> "" Then
	ConsoleWrite($var2 & @CRLF)
	EndIf	
	$i = $i + 1
WEnd

#include <WinAPIEx.au3>
#include <Array.au3>

$j = 0
$sKey = 'HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\'
$hKey = _WinAPI_RegOpenKey($HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Uninstall')
$Count = _WinAPI_RegQueryInfoKey($hKey)
Dim $aKey[$Count[0]]
Dim $aProgram[1][3]
For $i = 0 To UBound($aKey) - 1
	If RegRead($sKey & _WinAPI_RegEnumKey($hKey, $i), 'DisplayName') And _
			RegRead($sKey & _WinAPI_RegEnumKey($hKey, $i), 'UninstallString') Then
		ReDim $aProgram[UBound($aProgram) + 1][3]
		$aProgram[$j + 1][0] = RegRead($sKey & _WinAPI_RegEnumKey($hKey, $i), 'DisplayName')
		$aProgram[$j + 1][1] = RegRead($sKey & _WinAPI_RegEnumKey($hKey, $i), 'DisplayVersion')
		$aProgram[$j + 1][2] = RegRead($sKey & _WinAPI_RegEnumKey($hKey, $i), 'UninstallString')
		$aProgram[0][0] = UBound($aProgram) - 1
		$j += 1
	EndIf
Next
_WinAPI_RegCloseKey($hKey)
_ArrayDisplay($aProgram)

Run(@ComSpec & ' /C appwiz.cpl', '', @SW_HIDE)

#include <WinAPIEx.au3>
#include <Array.au3>

$sKey = 'HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\'
$hKey = _WinAPI_RegOpenKey($HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Uninstall')
$Count = _WinAPI_RegQueryInfoKey($hKey)

Dim $aKey[$Count[0]]
Dim $aProgram[$Count[0]+1][3]

For $i = 0 To UBound($aKey) - 1
	$s_Key = $sKey & _WinAPI_RegEnumKey($hKey, $i)
	$sDisplayName = RegRead($s_Key, 'DisplayName')
	$sDisplayVersion = RegRead($s_Key, 'DisplayVersion')
	$sUninstallString = RegRead($s_Key, 'UninstallString')
	
    If $sDisplayName And $sUninstallString Then
        $aProgram[0][0] += 1
        $aProgram[$aProgram[0][0]][0] = $sDisplayName
        $aProgram[$aProgram[0][0]][1] = $sDisplayVersion
        $aProgram[$aProgram[0][0]][2] = $sUninstallString
    EndIf
Next

ReDim $aProgram[$aProgram[0][0]+1][3]

_WinAPI_RegCloseKey($hKey)
_ArrayDisplay($aProgram)

#Include <Array.au3>
#Include <WinAPIEx.au3>

$tData = DllStructCreate('wchar[1024]')
$hKey = _WinAPI_RegOpenKey($HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Uninstall')
$Count = _WinAPI_RegQueryInfoKey($hKey)
Dim $aApp[$Count[0] + 1][4] = [[1]]
For $i = 0 To $Count[0] - 1
	$hSubKey = _WinAPI_RegOpenKey($hKey, _WinAPI_RegEnumKey($hKey, $i))
	Do
		If _WinAPI_RegQueryValue($hSubKey, 'DisplayName', $tData) Then
			$aApp[$aApp[0][0]][0] = DllStructGetData($tData, 1)
		Else
			ExitLoop
		EndIf
		If _WinAPI_RegQueryValue($hSubKey, 'UninstallString', $tData) Then
			$aApp[$aApp[0][0]][2] = DllStructGetData($tData, 1)
		Else
			ExitLoop
		EndIf
		If _WinAPI_RegQueryValue($hSubKey, 'DisplayVersion', $tData) Then
			$aApp[$aApp[0][0]][1] = DllStructGetData($tData, 1)
		Else
			$aApp[$aApp[0][0]][1] = ''
		EndIf

		; etc.

		$aApp[0][0] += 1
	Until 1
	_WinAPI_RegCloseKey($hSubKey)
Next
_WinAPI_RegCloseKey($hKey)
ReDim $aApp[$aApp[0][0]][4]
$aApp[0][0] -= 1

_ArrayDisplay($aApp)

#Include <Array.au3>
Dim  $aSoftwareInfo
_ComputerGetSoftware($aSoftwareInfo)
_ArrayDisplay($aSoftwareInfo)

Func _ComputerGetSoftware(ByRef $aSoftwareInfo)
	Local Const $UnInstKey	= "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall"
	Local $i = 1
	Dim $aSoftwareInfo[1][4]

	While 1
		$AppKey	= RegEnumKey($UnInstKey, $i)
		If @error <> 0 Then ExitLoop
		ReDim $aSoftwareInfo[UBound($aSoftwareInfo) + 1][4]
		$aSoftwareInfo[$i][0]	= StringStripWS(StringReplace(RegRead($UnInstKey & "\" & $AppKey, "DisplayName"), " (remove only)", ""), 3)
		$aSoftwareInfo[$i][1]	= StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "DisplayVersion"), 3)
		$aSoftwareInfo[$i][2]	= StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "Publisher"), 3)
		$aSoftwareInfo[$i][3]	= StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "UninstallString"), 3)
		$i += 1
	WEnd

	$aSoftwareInfo[0][0] = UBound($aSoftwareInfo, 1) - 1
	If $aSoftwareInfo[0][0] < 1 Then
		SetError(1, 1, 0)
	EndIf
EndFunc

If @OSArch = 'x64' Then
	Global $Path1 = 'HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall'
	Global $Path2 = 'HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall'
	Global $PathUser = 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Uninstall'
Else
	Global $Path1 = 'HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall'
	Global $PathUser = 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Uninstall'
EndIf

#Include <Array.au3>

Dim  $aSoftwareInfo
Dim  $aSoftwareInfo64
Dim  $aSoftwareInfo_all
_ComputerGetSoftware($aSoftwareInfo)
_ComputerGetSoftware64($aSoftwareInfo64)
_ComputerGetSoftware_all($aSoftwareInfo_all)

If @OSArch = "X86" Then
    _ArrayDisplay($aSoftwareInfo,'X86')
	_ArrayDisplay($aSoftwareInfo_all)
    Exit
    Else
_ArrayDisplay($aSoftwareInfo,'X86')
_ArrayDisplay($aSoftwareInfo64,'X64')
_ArrayDisplay($aSoftwareInfo_all)
EndIf

Func _ComputerGetSoftware64(ByRef $aSoftwareInfo64)
    Local Const $UnInstKey64  = "HKEY_LOCAL_MACHINE64\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
    Local $i = 1
    Dim $aSoftwareInfo64[1][4]
    While 1
        $AppKey64 = RegEnumKey($UnInstKey64, $i)
        If @error <> 0 Then ExitLoop
        ReDim $aSoftwareInfo64[UBound($aSoftwareInfo64) + 1][4]
        $aSoftwareInfo64[$i][0]   = StringStripWS(StringReplace(RegRead($UnInstKey64 & "\" & $AppKey64, "DisplayName"), " (remove only)", ""), 3)
        $aSoftwareInfo64[$i][1]   = StringStripWS(RegRead($UnInstKey64 & "\" & $AppKey64, "DisplayVersion"), 3)
        $aSoftwareInfo64[$i][2]   = StringStripWS(RegRead($UnInstKey64 & "\" & $AppKey64, "Publisher"), 3)
        $aSoftwareInfo64[$i][3]   = StringStripWS(RegRead($UnInstKey64 & "\" & $AppKey64, "UninstallString"), 3)
        $i += 1
    WEnd
    $aSoftwareInfo64[0][0] = UBound($aSoftwareInfo64, 1) - 1
    If $aSoftwareInfo64[0][0] < 1 Then
        SetError(1, 1, 0)
    EndIf
EndFunc

Func _ComputerGetSoftware(ByRef $aSoftwareInfo)
    Local Const $UnInstKey  = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
    Local $i = 1
    Dim $aSoftwareInfo[1][4]
    While 1
        $AppKey = RegEnumKey($UnInstKey, $i)
        If @error <> 0 Then ExitLoop
        ReDim $aSoftwareInfo[UBound($aSoftwareInfo) + 1][4]
        $aSoftwareInfo[$i][0]   = StringStripWS(StringReplace(RegRead($UnInstKey & "\" & $AppKey, "DisplayName"), " (remove only)", ""), 3)
        $aSoftwareInfo[$i][1]   = StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "DisplayVersion"), 3)
        $aSoftwareInfo[$i][2]   = StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "Publisher"), 3)
        $aSoftwareInfo[$i][3]   = StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "UninstallString"), 3)
        $i += 1
    WEnd
    $aSoftwareInfo[0][0] = UBound($aSoftwareInfo, 1) - 1
    If $aSoftwareInfo[0][0] < 1 Then
        SetError(1, 1, 0)
    EndIf
EndFunc

Func _ComputerGetSoftware_all(ByRef $aSoftwareInfo_all)
    Local Const $UnInstKey_all  = 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Uninstall'
    Local $i = 1
    Dim $aSoftwareInfo_all[1][4]
    While 1
        $AppKey_all= RegEnumKey($UnInstKey_all, $i)
        If @error <> 0 Then ExitLoop
        ReDim $aSoftwareInfo_all[UBound($aSoftwareInfo_all) + 1][4]
        $aSoftwareInfo_all[$i][0]   = StringStripWS(StringReplace(RegRead($UnInstKey_all & "\" & $AppKey_all, "DisplayName"), " (remove only)", ""), 3)
        $aSoftwareInfo_all[$i][1]   = StringStripWS(RegRead($UnInstKey_all & "\" & $AppKey_all, "DisplayVersion"), 3)
        $aSoftwareInfo_all[$i][2]   = StringStripWS(RegRead($UnInstKey_all & "\" & $AppKey_all, "Publisher"), 3)
        $aSoftwareInfo_all[$i][3]   = StringStripWS(RegRead($UnInstKey_all & "\" & $AppKey_all, "UninstallString"), 3)
        $i += 1
    WEnd
    $aSoftwareInfo_all[0][0] = UBound($aSoftwareInfo_all, 1) - 1
    If $aSoftwareInfo_all[0][0] < 1 Then
        SetError(1, 1, 0)
    EndIf
EndFunc