[Emre_]

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