Search the Community

Hi guys i need some help if someone would oblige. I am using this small code below to make a very basic uninstaller. It displays everything thats installed with no problems however under the uninstall string field it shows some strings with " " around them and others without. The strings with " " around them, when i right click and select uninstall they work with no issue but the ones without the quotes come up with an error. can anyone help please? im using a 64bit of windows 7 and wondering if thats whats causing the issue. i originally go this script from here - thanks in advance jamie #include <GuiListView.au3> ;Opt("TrayAutoPause", 0) Opt('GUIOnEventMode', 1) Opt('GUICloseOnEsc' , 1) Global $i Local $JamLVitem Global $sGui = GUICreate('Currently Installed Software', 810, 650, -1, -1) Global $jamUninsLvw = GUICtrlCreateListView('#|Installed Software|Display Version|Publisher|Uninstall String', 5, 5, 800, 600) _ComputerGetSoftwareuninst($JamLVitem) For $i = 1 To ubound($JamLVitem) - 1 GUICtrlCreateListViewItem($i & '|' & $JamLVitem[$i][0] & '|' & $JamLVitem[$i][1] & '|' & $JamLVitem[$i][2] & '|' & $JamLVitem[$i][3], $jamUninsLvw) Next ;GUICtrlSendMsg($jamUninsLvw, 0x101E, 1, 175) ;GUICtrlSendMsg($jamUninsLvw, 0x101E, 2, 65) ;GUICtrlSendMsg($jamUninsLvw, 0x101E, 3, 150) ;GUICtrlSendMsg($jamUninsLvw, 0x101E, 4, 350) Local $mMen = GUICtrlCreateContextMenu($jamUninsLvw) Local $CopI = GUICtrlCreateMenuItem('Uninstall Current Selection', $mMen) GUICtrlSetOnEvent($CopI, '_Uninstall') Local $exp = GUICtrlCreateButton(' Expand ', 720, 615) ;GUICtrlSetOnEvent($exp, '_Expand') GUISetOnEvent(-3, '_AllExit') _GUICtrlListView_SetColumnWidth($jamUninsLvw, 1, $LVSCW_AUTOSIZE) _GUICtrlListView_SetColumnWidth($jamUninsLvw, 2, $LVSCW_AUTOSIZE) _GUICtrlListView_SetColumnWidth($jamUninsLvw, 3, $LVSCW_AUTOSIZE) _GUICtrlListView_SetColumnWidth($jamUninsLvw, 4, $LVSCW_AUTOSIZE) GUISetState(@SW_SHOW, $sGui) While 1 Sleep(10) WEnd ; Func _AllExit() GUIDelete($sGui) Exit EndFunc ; Func _Uninstall() Local $proc = StringSplit(GUICtrlRead(GUICtrlRead($jamUninsLvw)), '|', 1) If $proc[1] == 0 Then Return -1 If $proc[5] Then ShellExecuteWait ($proc[5]) ; exit EndFunc ; Func _Copy2Clip() Local $proc = StringSplit(GUICtrlRead(GUICtrlRead($jamUninsLvw)), '|', 1) If $proc[1] == 0 Then Return -1 If $proc[5] Then ClipPut($proc[5]) EndFunc ; ; Author JSThePatriot - Modified June 20, 2010 by ripdad Func _ComputerGetSoftwareuninst(ByRef $aSoftwareInfoUninstbasic) Local Const $UnInstKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" Local $i = 1 Dim $aSoftwareInfoUninstbasic[1][4] $input = "ALL";inputbox ("Which Software" , "You are running " & @OSVersion & " " & @OSARCH & @CRLF & @CRLF & "Which Software would you like to view?", 'ALL') If @Error = 1 Then Exit If $input = 'ALL' Then For $j = 1 To 500 $AppKey = RegEnumKey($UnInstKey, $j) If @error <> 0 Then Exitloop If RegRead($UnInstKey & "\" & $AppKey, "DisplayName") = '' Then ContinueLoop ReDim $aSoftwareInfoUninstbasic[UBound($aSoftwareInfoUninstbasic) + 1][4] $aSoftwareInfoUninstbasic[$i][0] = StringStripWS(StringReplace(RegRead($UnInstKey & "\" & $AppKey, "DisplayName"), " (remove only)", ""), 3) $aSoftwareInfoUninstbasic[$i][1] = StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "DisplayVersion"), 3) $aSoftwareInfoUninstbasic[$i][2] = StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "Publisher"), 3) $aSoftwareInfoUninstbasic[$i][3] = StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "UninstallString"), 3) $i = $i + 1 Next $aSoftwareInfoUninstbasic[0][0] = UBound($aSoftwareInfoUninstbasic, 1) - 1 If $aSoftwareInfoUninstbasic[0][0] < 1 Then SetError(1, 1, 0) MsgBox(4096,"tt",$aSoftwareInfoUninstbasic[0][0] ) Return _ArraySort($aSoftwareInfoUninstbasic) Else For $j = 1 To 500 $AppKey = RegEnumKey($UnInstKey, $j) If @error <> 0 Then Exitloop $Reg = RegRead($UnInstKey & "\" & $AppKey, "DisplayName") $string = stringinstr($Reg, $input) If $string = 0 Then Continueloop ReDim $aSoftwareInfoUninstbasic[UBound($aSoftwareInfoUninstbasic) + 1][4] $aSoftwareInfoUninstbasic[$i][0] = StringStripWS(StringReplace(RegRead($UnInstKey & "\" & $AppKey, "DisplayName"), " (remove only)", ""), 3) $aSoftwareInfoUninstbasic[$i][1] = StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "DisplayVersion"), 3) $aSoftwareInfoUninstbasic[$i][2] = StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "Publisher"), 3) $aSoftwareInfoUninstbasic[$i][3] = StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "UninstallString"), 3) $i = $i + 1 Next $aSoftwareInfoUninstbasic[0][0] = UBound($aSoftwareInfoUninstbasic, 1) - 1 If $aSoftwareInfoUninstbasic[0][0] < 1 Then SetError(1, 1, 0) Return _ArraySort($aSoftwareInfoUninstbasic) Endif EndFunc ; Func _Expand() EndFunc