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

glax24 · 20 Окт 2012

joiner, вы проверяли что если скрипт откомпилировать в x32 и запустить его на Winх64, вернется правильный результат?

ivsatel · 20 Окт 2012

Так наверное хуже и больше код, но все же:

Код:

#Include <Array.au3>

Dim  $aSoftwareInfo, $aSoftwareInfo2, $aSoftwareInfo3

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

If @OSArch = 'x64' Then
_ComputerGetSoftware($aSoftwareInfo)

_ComputerGetSoftware2($aSoftwareInfo2)

_ComputerGetSoftware3($aSoftwareInfo3)
_ArrayDisplay($aSoftwareInfo)
_ArrayDisplay($aSoftwareInfo2)
_ArrayDisplay($aSoftwareInfo3)
Else
_ComputerGetSoftware($aSoftwareInfo)
_ComputerGetSoftware3($aSoftwareInfo3)
_ArrayDisplay($aSoftwareInfo)
_ArrayDisplay($aSoftwareInfo3)
EndIf

Func _ComputerGetSoftware(ByRef $aSoftwareInfo)
    Local Const $UnInstKey  = $Path1
    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 _ComputerGetSoftware2(ByRef $aSoftwareInfo2)
    Local Const $UnInstKey  = $Path2
    Local $i = 1
    Dim $aSoftwareInfo2[1][4]

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

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

Func _ComputerGetSoftware3(ByRef $aSoftwareInfo3)
    Local Const $UnInstKey  = $PathUser
    Local $i = 1
    Dim $aSoftwareInfo3[1][4]

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

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

glax24 · 20 Окт 2012

ivsatel, читайте выше моё сообщение.

Код:

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'

Если скрипт х32 при запуске на Winх64 Path1=Path2

joiner · 20 Окт 2012

если компилировать скрипт по умолчанию как х86 , то показывает как положено в Win 7 x64. сначала установленные 32-битные приложения потом 64-битные. если компилировать скрипт как х64, то показывает только программы 64-битности.
у меня система Win7 x64

ivsatel · 20 Окт 2012

joiner
У меня Ваш скрипт показывает обе таблицы, система Win ХР х32
Или это по тому, что не скоипилированный?

joiner · 20 Окт 2012

правильно. ведь система ХР х32
можно через проверку

Код:

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

glax24 · 20 Окт 2012

Т.к. мой пример был основан на примере CreatoR, то сделал так

Код:

If @OSArch = "X64" Then
		Local $sKey = 'HKLM64\Software\Microsoft\Windows\CurrentVersion\Uninstall\'
		Local $iAccess = BitOR($KEY_READ, $KEY_WOW64_64KEY)
		Local $hKey = _WinAPI_RegOpenKey($HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Uninstall', $iAccess)
	Else
		Local $sKey = 'HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\'
		Local $hKey = _WinAPI_RegOpenKey($HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Uninstall')
	EndIf

ivsatel · 20 Окт 2012

glax24
Тоже немного сделал:

Код:

#Include <Array.au3>

Dim  $aSoftwareInfo, $aSoftwareInfo2, $aSoftwareInfo3

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

If @OSArch = 'x64' Then
_ComputerGetSoftware($aSoftwareInfo)
_ComputerGetSoftware2($aSoftwareInfo2)
_ComputerGetSoftware3($aSoftwareInfo3)

While 1

$StringZero = _ArrayFindAll($aSoftwareInfo, '')
If _ArrayFindAll($aSoftwareInfo, '') = @error Then
	ExitLoop
EndIf
_ArrayDelete($aSoftwareInfo, _ArrayMax($StringZero))
If  _ArrayMax($StringZero) = 0 Then
	ExitLoop
EndIf

WEnd

While 1

$StringZero2 = _ArrayFindAll($aSoftwareInfo2, '')
If _ArrayFindAll($aSoftwareInfo2, '') = @error Then
	ExitLoop
EndIf
_ArrayDelete($aSoftwareInfo2, _ArrayMax($StringZero2))
If  _ArrayMax($StringZero2) = 0 Then
	ExitLoop
EndIf

WEnd

While 1

$StringZero3 = _ArrayFindAll($aSoftwareInfo3, '')
If _ArrayFindAll($aSoftwareInfo3, '') = @error Then
	ExitLoop
EndIf
_ArrayDelete($aSoftwareInfo3, _ArrayMax($StringZero3))
If  _ArrayMax($StringZero3) = 0 Then
	ExitLoop
EndIf

WEnd

_ArraySort($aSoftwareInfo)
_ArraySort($aSoftwareInfo2)
_ArraySort($aSoftwareInfo3)
_ArrayUnique($aSoftwareInfo)
_ArrayUnique($aSoftwareInfo2)
_ArrayUnique($aSoftwareInfo3)
_ArrayDisplay($aSoftwareInfo, 'Основное для установленных x32 приложений')
_ArrayDisplay($aSoftwareInfo, 'Основное для установленных x64 приложений')
_ArrayDisplay($aSoftwareInfo3, 'Пользовательское')

_ArrayDisplay($aSoftwareInfo)
_ArrayDisplay($aSoftwareInfo2)
_ArrayDisplay($aSoftwareInfo3)
Exit
Else
_ComputerGetSoftware($aSoftwareInfo)
_ComputerGetSoftware3($aSoftwareInfo3)

While 1

$StringZero = _ArrayFindAll($aSoftwareInfo, '')
If _ArrayFindAll($aSoftwareInfo, '') = @error Then
	ExitLoop
EndIf
_ArrayDelete($aSoftwareInfo, _ArrayMax($StringZero))
If  _ArrayMax($StringZero) = 0 Then
	ExitLoop
EndIf

WEnd

While 1

$StringZero3 = _ArrayFindAll($aSoftwareInfo3, '')
If _ArrayFindAll($aSoftwareInfo3, '') = @error Then
	ExitLoop
EndIf
_ArrayDelete($aSoftwareInfo3, _ArrayMax($StringZero3))
If  _ArrayMax($StringZero3) = 0 Then
	ExitLoop
EndIf

WEnd

_ArraySort($aSoftwareInfo)
_ArraySort($aSoftwareInfo3)
_ArrayUnique($aSoftwareInfo)
_ArrayUnique($aSoftwareInfo3)
_ArrayDisplay($aSoftwareInfo, 'Основное')
_ArrayDisplay($aSoftwareInfo3, 'Пользовательское')
Exit
EndIf

Func _ComputerGetSoftware(ByRef $aSoftwareInfo)
    Local Const $UnInstKey  = $Path1
    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 _ComputerGetSoftware2(ByRef $aSoftwareInfo2)
    Local Const $UnInstKey  = $Path2
    Local $i = 1
    Dim $aSoftwareInfo2[1][4]

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

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

Func _ComputerGetSoftware3(ByRef $aSoftwareInfo3)
    Local Const $UnInstKey  = $PathUser
    Local $i = 1
    Dim $aSoftwareInfo3[1][4]

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

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

glax24 · 16 Ноя 2012

Т.к для чтения из реестра с помощью функций из WinAPIEx скрипт необходимо запускать от имени администратора, то перешел на функции из Registry_UDFs.au3, вот что получилось

Код:

#include <Array.au3>

Global $HKCU = 'HKCU', $HKLM = 'HKLM'
Global $sKeyUn
Dim $aProgram[1][3]
$aProgram[0][0] = 0

If @OSArch = "X64" Then
	$HKCU = 'HKCU64'
	$HKLM = 'HKLM64'
EndIf

$sKeyUn = $HKLM & '\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall'
GetInstallProg($sKeyUn)
$sKeyUn = $HKCU & '\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall'
GetInstallProg($sKeyUn)
If @OSArch = "X64" Then
	$sKeyUn = $HKLM & '\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall'
	GetInstallProg($sKeyUn)
EndIf
_ArrayDisplay($aProgram, "InstallProg")

; Функция получения установленных программ
Func GetInstallProg($sKey)
	Local $errReg = 0
	Local $i = 0
	Local $sDisplayName
	Local $sDisplayVersion
	Local $sUninstallString

	Local $aKey = _RegReadKeyValueToArray($sKey)
	$errReg = @error
	If $errReg Or UBound($aKey) = 0 Then Return SetError(1, 0, "")

	If Not $aKey[0] Then Return SetError(2, 0, "") ; Если раздел $sKey есть, но он пустой

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

	For $i = 1 To UBound($aKey) - 1

		$sDisplayName = RegRead($aKey[$i], 'DisplayName')
		$sDisplayVersion = RegRead($aKey[$i], 'DisplayVersion')
		$sUninstallString = RegRead($aKey[$i], 'UninstallString')

		;If $sDisplayName And $sUninstallString Then
		If $sDisplayName Then

			; Пропускаем повторяющиеся
			For $j = 1 To $aProgram[0][0]
				If $aProgram[$j][0] = "" Then ContinueLoop
				If StringCompare($aProgram[$j][0], $sDisplayName) = 0 Then
					ContinueLoop 2
				EndIf
			Next

			$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]

EndFunc   ;==>GetInstallProg

;function from Registry_UDFs.au3
Func _RegReadKeyValueToArray($s_Key, $iKey_Value_Mode = 0)
	Local $aKeysListArr[1], $aSubKeysListArr, $iInstance = 0, $sEnum_KeyVal, $sCurrentKeyPath

	If Not _RegKeyExists($s_Key) Then Return SetError(1, 0, $aKeysListArr)

	While 1
		$iInstance += 1

		If $iKey_Value_Mode = 0 Then
			$sEnum_KeyVal = RegEnumKey($s_Key, $iInstance)
		Else
			$sEnum_KeyVal = RegEnumVal($s_Key, $iInstance)
		EndIf

		If @error <> 0 Then ExitLoop

		$sCurrentKeyPath = $s_Key & "\" & $sEnum_KeyVal

		$aKeysListArr[0] += 1
		ReDim $aKeysListArr[$aKeysListArr[0] + 1]
		$aKeysListArr[$aKeysListArr[0]] = $sCurrentKeyPath

		$aSubKeysListArr = _RegReadKeyValueToArray($sCurrentKeyPath)

		For $j = 1 To $aSubKeysListArr[0]
			$aKeysListArr[0] += 1

			ReDim $aKeysListArr[$aKeysListArr[0] + 1]
			$aKeysListArr[$aKeysListArr[0]] = $aSubKeysListArr[$j]
		Next
	WEnd

	Return $aKeysListArr
EndFunc   ;==>_RegReadKeyValueToArray

;function from Registry_UDFs.au3
Func _RegKeyExists($s_Key)
	RegRead($s_Key, "")
	If @error <= 0 Then Return 1 ; Key exists

	Return 0
EndFunc   ;==>_RegKeyExists

joiner · 17 Ноя 2012

glax24
не все показывает. в 64-битной системе нужно использовать и HKLM64 и HKLM

glax24 · 17 Ноя 2012

странно, но вроде в Win x64 ключ

Код:

HKLM64\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall

будет равен ключу

Код:

HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall

joiner · 17 Ноя 2012

glax24, ну уже ж вроде обсуждали это. смотри мой пример http://autoit-script.ru/index.php/topic,2314.msg76382.html#msg76382

glax24 · 18 Ноя 2012

С ключами в моем примере все правильно, была просто опечатка, исправил.

Автор темы	Похожие темы	Форум	Ответы	Дата
	Окна, Диалоги Получение всех окон различными способами не приводит к идентичному результату	Общие вопросы по AutoIt	0	2 Апр 2023
M	Криптография Получение срока действия лицензии КриптоПро CSP	Общие вопросы по AutoIt	0	28 Фев 2023
B	Формирование графика в формулу и получение точки в переменную	Общие вопросы по AutoIt	2	29 Окт 2022
	Получение названия места по геолокации с изображения	Общие вопросы по AutoIt	15	18 Фев 2016
T	[Файловая система] Получение названия (email) из The Bat	Общие вопросы по AutoIt	0	16 Авг 2013

Поиск

Поиск

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

glax24

Знающий

ivsatel

Продвинутый

glax24

Знающий

joiner

Модератор

ivsatel

Продвинутый

joiner

Модератор

glax24

Знающий

ivsatel

Продвинутый

glax24

Знающий

joiner

Модератор

glax24

Знающий

joiner

Модератор

glax24

Знающий