+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [Shell] Add Uninstall a Program Cascading Desktop Context Menu (/showthread.php?tid=6004880)
Add Uninstall a Program Cascading Desktop Context Menu - Emre_ - Sep 3, 2019
Add or remove a special context menu Uninstall a program to the Desktop context menu. It will save your time, especially if you are installing and removing apps frequently.
Code
@Echo Off & Cls
REM --> Check for permissions
Reg query "HKU\S-1-5-19\Environment"
REM --> If error flag set, we do not have admin.
if %errorlevel% NEQ 0 (
ECHO **************************************
ECHO Running Admin shell... Please wait...
ECHO **************************************
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
set params = "%*:"=""
echo UAC.ShellExecute "cmd.exe", "/c ""%~s0"" %params%", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
del "%temp%\getadmin.vbs"
exit /B
:gotAdmin
Cls & Mode CON LINES=11 COLS=85 & Color 0E & Title Created By FreeBooter
Echo.
Echo.
Echo.
Echo Add Uninstall a Program Cascading Desktop Context Menu (Y/N)?
Echo.
Echo.
Echo.
Set /p input= RESPONSE:
If /i Not %input%==Y (Goto :_Ex) Else (Goto :_Start)
:_Ex
If /i Not %input%==N (Goto :EOF) Else (Goto :_RegRestore)
:_Start
Reg.exe add "HKCR\DesktopBackground\Shell\UninstallaProgram" /v "Icon" /t REG_SZ /d "shell32.dll,-271" /f > Nul
Reg.exe add "HKCR\DesktopBackground\Shell\UninstallaProgram" /v "MUIVerb" /t REG_SZ /d "Uninstall a program" /f > Nul
Reg.exe add "HKCR\DesktopBackground\Shell\UninstallaProgram" /v "Position" /t REG_SZ /d "Bottom" /f > Nul
Reg.exe add "HKCR\DesktopBackground\Shell\UninstallaProgram" /v "SubCommands" /t REG_SZ /d "" /f > Nul
Reg.exe add "HKCR\DesktopBackground\Shell\UninstallaProgram\Shell\01appwiz" /v "MUIVerb" /t REG_SZ /d "using Control Panel" /f > Nul
Reg.exe add "HKCR\DesktopBackground\Shell\UninstallaProgram\Shell\01appwiz" /v "Icon" /t REG_SZ /d "shell32.dll,-271" /f > Nul
Reg.exe add "HKCR\DesktopBackground\Shell\UninstallaProgram\Shell\01appwiz\command" /ve /t REG_SZ /d "control.exe /name Microsoft.ProgramsAndFeatures" /f > Nul
Reg.exe add "HKCR\DesktopBackground\Shell\UninstallaProgram\Shell\02settings" /v "MUIVerb" /t REG_SZ /d "using Settings" /f > Nul
Reg.exe add "HKCR\DesktopBackground\Shell\UninstallaProgram\Shell\02settings" /v "Icon" /t REG_SZ /d "bootux.dll,-1032" /f > Nul
Reg.exe add "HKCR\DesktopBackground\Shell\UninstallaProgram\Shell\02settings\command" /ve /t REG_SZ /d "explorer.exe ms-settings:appsfeatures" /f > Nul
Cls & Mode CON LINES=11 COLS=75 & Color 0E & Title Created By FreeBooter
Echo.
Echo.
Echo.
Echo.
Echo Adding Uninstall a Program Option to Context Menu
Echo.
Echo.
Echo.
Ping -n 6 localhost >Nul
Exit
:_RegRestore
Reg.exe delete "HKCR\DesktopBackground\Shell\UninstallaProgram" /f > Nul
Cls & Mode CON LINES=11 COLS=75 & Color 0E & Title Created By FreeBooter
Echo.
Echo.
Echo.
Echo.
Echo Removing Uninstall a Program Option from Context Menu
Echo.
Echo.
Echo.
Ping -n 6 localhost >Nul
Exit