Generate program list

[Mechaflash 99]

What method does one use to generate a list of programs on the local machine?

Building an application list for the user to choose a default application... not sure how to approach enumerating the programs. Drop a hint for me?

Thanks.

[JLogan3o13 1,365]

I use this, which I cobbled together with the help of several on the forum. Can't recall if I ever finished the right-click uninstall feature, but it should give you a place to start.

Enumerate Local Apps with Uninstall.au3

[Xandy 345]

hmm, can you convert this to your liking? I'll try to pretty it up. I need to fix up the mylistbox, I used a homemade one to select via double click

$proglist= winlist()
$labellistbox= guictrlcreatelabel("Select window title to activate", 26, 175, 560, 20, $ss_center)
$mylistbox= guictrlcreatelist("", 26, 195, 560, 331)
guictrlsetstate($mylistbox, $gui_show)
for $i= 1 to $proglist[0][0]
   if $proglist[$i][0]<>"" then guictrlsetdata($mylistbox, $proglist[$i][0]&"|")
next

while 1
   $msg= guigetmsg()
   if _ispressed("0d") or $mylistboxmsg= 1 then;enter
      $mylistboxmsg= 0
      guictrlsetdata($, guictrlread($mylistbox))
      exitloop
   endif
   if _ispressed("1B") or $msg= $gui_event_close then;escape
      exitloop
   endif
wend
guictrldelete($labellistbox)
guictrldelete($mylistbox)

global $mylistbox= 0
global $mylistboxmsg= 0
;I am not the author of this function
Func _WM_COMMAND($hWnd, $msg, $wParam, $lParam)
    local $nCode = bitshift($wParam, 16) ; HiWord
    local $nIDFrom = bitand($wParam, 0xFFFF)       ; LoWord
    Switch $nIDFrom
        Case $mylistbox
            Switch $nCode
                Case $LBN_DBLCLK
                    $sListItem = guictrlread($mylistbox) ; Read selected item
                    $mylistboxmsg= 1
            EndSwitch
    EndSwitch
    return $GUI_RUNDEFMSG
EndFunc   ;==>_WM_COMMAND

If you wanted installed programs, i'll be interested to see a solution. Neat JLogan3o13, I can follow that example.

Edited July 24, 2012 by Xandy

[Mechaflash 99]

I use this, which I cobbled together with the help of several on the forum. Can't recall if I ever finished the right-click uninstall feature, but it should give you a place to start.

Enumerate Local Apps with Uninstall.au3

I see you recurse over the registry to grab the uninstall info. Do you know of a key that holds the .exe locations?

[BrewManNH 1,143]

I see you recurse over the registry to grab the uninstall info. Do you know of a key that holds the .exe locations?

If you look in the same location as where he gets the Uninstall string, there's a key called "InstallLocation" which is where the software was installed to.

[Mechaflash 99]

!!! this is nice... found some keys in HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionApp Paths. It holds most if not all of the .exe locations.

[Mechaflash 99]

Sorry if you saw my last post I deleted XD. I split it into a function and didn't test it =/.

Threw this together...

#include <Array.au3>

$asEXEs = _EnumEXEs() ; Returns an array of Programs. Col.0 = Base name, Col.1 = Full Path
If msgbox(4 + 64 + 262144 ,"Programs", "Programs Found." &amp;amp; @LF &amp;amp; @LF &amp;amp; "Do you wish to view them?") = 6 Then
    _ArrayDisplay($asEXEs, "Program List", -1, Default, "", "", "Index|Program Name|Program Full Path")
Else
    Exit
EndIf

Func _EnumEXEs()
    $i = 0
    $x = 1
    $sKey = "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionApp Paths"
    Local $asProg[999][2]
    While 1
        $fKey = RegEnumKey($sKey, $x)
        $x+=1
        If Not $fKey Then ExitLoop
        $fProg = RegRead($sKey &amp;amp; "" &amp;amp; $fKey, "")
        If Not $fProg Then ContinueLoop
        $asProg[$i][1] = StringReplace($fProg, '"', "")
        $asSplit = StringSplit($asProg[$i][1], "")
        $asProg[$i][0] = $asSplit[$asSplit[0]]
        $i+=1
    WEnd
    ReDim $asProg[$i][2]

    Return $asProg
EndFunc

EDIT: Removed defining $asSplit in function

Well it looks like it doesn't grab all applications.

Edited July 24, 2012 by mechaflash213

[iamtheky 769]

These are the three* threads i played in when figuring out how to enumerate and use the uninstall string.

Edited July 24, 2012 by boththose

[Mechaflash 99]

Okay... round 2... iterated over the uninstall section looking for keys that have the InstallLocation value. I think this is much closer.

expandcollapse popup

#include <Array.au3>
#include <File.au3>
#include <RecFileListToArray.au3>

$asEXEs = _EnumEXEs() ; Returns an array of Programs. Col.0 = Base name, Col.1 = Full Path
If msgbox(4 + 64 + 262144 ,"Programs", "Programs Found." & @LF & @LF & "Do you wish to view them?") = 6 Then
    _ArrayDisplay($asEXEs, "Program List", -1, Default, "", "", "Index|Program Name|Program Full Path")
Else
    Exit
EndIf

Func _EnumEXEs()
    $i = 0
    $x = 1
    $sKey = "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionUninstall"
    Local $asProg[999][2]
    Local $asSplit[5]
    While 1
        $fKey = RegEnumKey($sKey, $x)
        $x+=1
        If Not $fKey Then ExitLoop
        $fProg = StringReplace(RegRead($sKey & "" & $fKey, "InstallLocation"), '"', "")
        If Not $fProg Then ContinueLoop
;~      msgbox(0,"",$fProg)
        $asFiles = _RecFileListToArray($fProg, "*.exe", 1, 0, 0, 2)
        If @error <> 0 Then ContinueLoop
        For $z = 1 To $asFiles[0]
            $asSplit = StringSplit($asFiles[$z], "")
            $asProg[$i][0] = $asSplit[$asSplit[0]]
            $asProg[$i][1] = $asFiles[$z]
            $i+=1
        Next
    WEnd
    ReDim $asProg[$i][2]

    Return $asProg
EndFunc

Edited July 24, 2012 by mechaflash213

[BrewManNH 1,143]

I just remembered something, the Uninstall information in the registry is also in "HKEY_LOCAL_MACHINESOFTWAREWow6432NodeMicrosoftWindowsCurrentVersionUninstall" on x64 versions of Windows for stuff that's installed into "C:Program Files (x86)"

[guinness 1,478]

Why do you set the size of the array at 999? Look at ReDim or _ReDim in my signature (the effective approach.)

[Mechaflash 99]

I just remembered something, the Uninstall information in the registry is also in "HKEY_LOCAL_MACHINESOFTWAREWow6432NodeMicrosoftWindowsCurrentVersionUninstall" on x64 versions of Windows for stuff that's installed into "C:Program Files (x86)"

Ugh... I'll add that in... just thought of something else too... HKCU also has its own key for programs only installed for that user...

Why do you set the size of the array at 999? Look at ReDim or _ReDim in my signature (the effective approach.)

I see... so for my example I can set it to 50, if it hits 50, redim it +50, then if it hits 100 another +50 ? Then after the loop is done, redim it to it's final size.

Edited July 24, 2012 by mechaflash213

[guinness 1,478]

Yeh something like that, though I would personally check the size and then work out if it needs to be ReDim'd. _ReDim explains how to go about this.

[Mechaflash 99]

I was thinking... what about enumerating the Start menu's programs list, looking up the properties for the shortcut to find the path to the exe?

Cause after enumerating just the HKLM uninstall key, i've got 180+ programs. For my personal usage of this function, I don't need all of the random pre-installed system apps. On top of that, some of these folders contain multiple .exe files in the 'InstallLocation' folder, and most of the time, those additional exes aren't meant to be accessed directly.

I'm gonna do another test...

[JLogan3o13 1,365]

Here is one I used to use for enumerating applications on remote machines. It is several years old, so no promises as to being my best effort - but it does show how to loop through and remove things such as Windows Updates from the resulting array.

Enumerate Remote Apps.au3

[BrewManNH 1,143]

Here's how I did it, I just looked for the /kb/ string in the "MoreInfoURL" key, which is almost 100% of the time a Windows Update.

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#Tidy_Parameters=/rel /uv 3 /proper 1
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Array.au3>
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
AutoItSetOption("WinTitleMatchMode", 2)
Opt("Guioneventmode", 1)
Opt("MustDeclareVars", 1)
Global $Updates[1000][2], $Checked = 0
Global $aAddRemoveWithUpdates[1]
Global $Timer = TimerInit()
Global $hGUI = GUICreate("Uninstaller", 600, 500, -1, -1, BitOR($WS_THICKFRAME, BitXOR($GUI_SS_DEFAULT_GUI, $WS_MINIMIZEBOX)))
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
Global $Button = GUICtrlCreateButton(" Uninstall ", 50, 10, 80)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetOnEvent(-1, "button")
GUICtrlSetResizing($Button, 768 + 32)
GUICtrlSetTip(-1, "Uninstall the selected items")
Global $inclUpdates = GUICtrlCreateCheckbox("Include listing updates?", 250, 10)
GUICtrlSetResizing($inclUpdates, 768 + 32)
GUICtrlSetOnEvent(-1, "Checkbox")
Global $ListView = GUICtrlCreateListView("Program Name|Uninstall String", 20, 40, 560, 430, -1, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_CHECKBOXES))
GUICtrlSetResizing($ListView, 102)
Global $hListView = GUICtrlGetHandle($ListView)
Global $AddRemove = _SoftwareInfo($Updates)
_ArraySort($AddRemove, 0, 0)
_ArraySort($Updates, 0, 0)
Global $aAddRemove[UBound($AddRemove)][2]
For $I = 0 To UBound($AddRemove) - 1
 $aAddRemove[$I][0] = $AddRemove[$I][0]
 $aAddRemove[$I][1] = $AddRemove[$I][1]
Next
_GUICtrlListView_AddArray($hListView, $aAddRemove)
GUICtrlSendMsg($ListView, 4126, 1, 0)
GUICtrlSendMsg($ListView, 4126, 0, -1)
Global $SubMax = UBound($aAddRemove, 2) - 1
Global $iWidth = 0
$iWidth += GUICtrlSendMsg($ListView, (0x1000 + 29), 0, 0)
If $iWidth < 250 Then $iWidth = 250
$iWidth += 80
If $iWidth > @DesktopWidth Then $iWidth = @DesktopWidth - 100
WinMove($hGUI, "", (@DesktopWidth - $iWidth) / 2, Default, $iWidth)
GUISetState()
While 1
 Sleep(100)
WEnd
Func Checkbox()
 If GUICtrlRead($inclUpdates) = $GUI_CHECKED Then
  Local $Temp = UBound($aAddRemove)
  $aAddRemoveWithUpdates = $aAddRemove
  ReDim $aAddRemoveWithUpdates[$Temp + UBound($Updates) - 1][2]
  For $I = $Temp To UBound($aAddRemoveWithUpdates) - 1
   $aAddRemoveWithUpdates[$I][0] = $Updates[$I - ($Temp - 1)][0]
   $aAddRemoveWithUpdates[$I][1] = $Updates[$I - ($Temp - 1)][1]
  Next
  _GUICtrlListView_DeleteAllItems($hListView)
  _ArraySort($aAddRemoveWithUpdates, 0, 0, 0, 0)
  _GUICtrlListView_AddArray($hListView, $aAddRemoveWithUpdates)
 Else
  _GUICtrlListView_DeleteAllItems($hListView)
  _ArraySort($AddRemove, 0, 0, 0, 0)
  _GUICtrlListView_AddArray($hListView, $aAddRemove)
 EndIf
 GUICtrlSendMsg($ListView, 4126, 1, 0)
 GUICtrlSendMsg($ListView, 4126, 0, -1)
 Global $SubMax = UBound($aAddRemove, 2) - 1
 Global $iWidth = 0
 $iWidth += GUICtrlSendMsg($ListView, (0x1000 + 29), 0, 0)
 If $iWidth < 250 Then $iWidth = 250
 $iWidth += 80
 If $iWidth > @DesktopWidth Then $iWidth = @DesktopWidth - 100
 WinMove($hGUI, "", (@DesktopWidth - $iWidth) / 2, Default, $iWidth)
EndFunc   ;==>Checkbox
Func close()
 Exit
EndFunc   ;==>close
Func Button()
 Local $Return, $Error
 For $I = _GUICtrlListView_GetItemCount($hListView) - 1 To 0 Step -1
  Local $Checked = _GUICtrlListView_GetItemChecked($hListView, $I)
  If $Checked = True Then
   Local $Text = _GUICtrlListView_GetItemText($hListView, $I, 1)
   $Text = Chr(34) & $Text
   $Text = StringReplace($Text, ".exe", ".exe" & Chr(34))
   $Text = StringReplace($Text, '""', '"')
   ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $Text = ' & $Text & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
   If StringInStr($Text, ".exe" & Chr(34)) Then
    $Return = RunWait($Text)
    $Error = @error
   Else
    $Return = ShellExecuteWait($Text)
    $Error = @error
   EndIf
   ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') ' & @HOUR & ":" & @MIN & ': $Return = ' & $Return & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
   If Not $Return And Not $Error Then
    _GUICtrlListView_DeleteItem($hListView, $I)
    _ArrayDelete($aAddRemove, $I)
   Else
    MsgBox(64, "Error", "There was an error while uninstalling " & _GUICtrlListView_GetItemText($hListView, $I, 0) & @CRLF & _
      "The returned message was: " & $Return & @CRLF & "The Error message was: " & $Error)
   EndIf
  EndIf
 Next
 Return
EndFunc   ;==>Button
Func _SoftwareInfo(ByRef $New)
 Local $Count = 1, $Count1 = 1, $Count2 = 1
 Local Const $regkey = 'HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionUninstall'
 While 1
  Local $key = RegEnumKey($regkey, $Count1)
  If @error <> 0 Then ExitLoop
  Local $line = RegRead($regkey & '' & $key, 'Displayname')
  Local $line2 = RegRead($regkey & "" & $key, "MoreInfoURL")
  Local $line3 = RegRead($regkey & "" & $key, "UninstallString")
  If $line <> '' And $line3 <> "" And Not StringInStr($line, "Office Suite Service Pack", 0) Then
   If StringMid($line2, StringLen($line2) - 9, 4) <> "/kb/" Then
    If Not IsDeclared('avArray') Then Dim $avArray[100][2]
    If UBound($avArray) - $Count <= 1 Then ReDim $avArray[UBound($avArray) + 100][2]
    $avArray[$Count - 1][0] = $line
    $avArray[$Count - 1][1] = $line3
    $Count = $Count + 1
   Else
    If UBound($New) - $Count2 <= 1 Then ReDim $New[UBound($New) + 100][2]
    $New[$Count2 - 1][0] = $line
    $New[$Count2 - 1][1] = $line3
    $Count2 = $Count2 + 1
   EndIf
  EndIf
  $Count1 += 1
 WEnd
 If Not IsDeclared('avArray') Or Not IsArray($avArray) Then
  Return (SetError(1, 0, ''))
 Else
  ReDim $avArray[$Count - 1][2]
  If $Count2 > 1 Then
   ReDim $New[$Count2 - 1][2]
  Else
   $New = ""
  EndIf
  Return (SetError(0, 0, $avArray))
 EndIf
EndFunc   ;==>_SoftwareInfo

[Mechaflash 99]

Round 3... so I whipped this up... I keep looking at it though like I was stupid for writing it the way I did with the nested For loops... I couldn't think of any other way to write it.

Anyways... tested and works. I believe this is what I'll end up using if you guys don't see a possible issue doing it this way.

expandcollapse popup

#include <Array.au3>
#include <File.au3>
#include <RecFileListToArray.au3>

$asEXEs = _EnumEXEs() ; Returns an array of Programs. Col.0 = Base name, Col.1 = Full Path
If msgbox(4 + 64 + 262144 ,"Programs", UBound($asEXEs) &amp;amp;amp; " Programs Found." &amp;amp;amp; @LF &amp;amp;amp; @LF &amp;amp;amp; "Do you wish to view them?") = 6 Then
    _ArrayDisplay($asEXEs, "Program List", -1, Default, "", "", "Index|Program Name|Program Full Path")
Else
    Exit
EndIf

Func _EnumEXEs()
    Local $i, $iCount
    Local $asProg[50][2], $asPaths[2]
    $asPaths[0] = @ProgramsCommonDir
    $asPaths[1] = @ProgramsDir
    For $paths in $asPaths
        $asFolders = _RecFileListToArray($paths, "*", 2, 0, 0, 2)
        If @error <> 0 Then Return SetError(1,0,1)
        For $y = 1 To $asFolders[0]
            $asFiles = _RecFileListToArray($asFolders[$y], "*.lnk", 1, 0, 0, 2)
            If @error Then ContinueLoop
            For $x = 1 To $asFiles[0]
                $asShortCut = FileGetShortcut($asFiles[$x])
                If @error Then ContinueLoop
                If Not FileExists($asShortCut[0]) Or StringRight($asShortCut[0], 3) <> "exe" Then ContinueLoop
                $asSplit = StringSplit($asShortCut[0], "")
                $asProg[$i][0] = $asSplit[$asSplit[0]]
                $asProg[$i][1] = $asShortCut[0]
                $i+=1
                If $i >= UBound($asProg) Then ReDim $asProg[$i+50][2]
            Next
        Next
    Next

    ReDim $asProg[$i][2]
    _ArraySort($asProg,0,0,0,1)

    For $j = 1 To UBound($asProg, 1) - 1
        While 1
            If $asProg[$j][1] = $asProg[$j-1][1] Then
                $iCount = _ArrayDelete($asProg, $j)
            Else
                ExitLoop
            EndIf

        WEnd
        If $iCount - 1 = $j Then ExitLoop
    Next

    _ArraySort($asProg)

    Return $asProg
EndFunc

Edited July 25, 2012 by mechaflash213

[VelvetElvis 2]

One thing I noticed with "Enumerate Local Apps with Uninstall().au3" is that it doesn't seem to find Google Chrome, even though it's installed.

Anyone know why this is, and what other installed s/ware might be missed?

[tes5884 2]

One thing I noticed with "Enumerate Local Apps with Uninstall().au3" is that it doesn't seem to find Google Chrome, even though it's installed.

Anyone know why this is, and what other installed s/ware might be missed?

That might have something to with the fact that Chrome by default installs to the user profile.

[VelvetElvis 2]

That might have something to with the fact that Chrome by default installs to the user profile.

I've checked a couple of similar scripts in the forums, and they all have this same issue.