Updated to RAD Studio 10.1 Berlin

Author: RRUZ

Build_x64Debug.bat

@@ -1,11 +1,16 @@
 BRCC32 VersionInfo.rc
-call "C:\Program Files (x86)\Embarcadero\RAD Studio\11.0\bin\rsvars.bat"
+call "C:\Program Files (x86)\Embarcadero\Studio\18.0\bin\rsvars.bat"
 msbuild.exe "DelphiDevShellTools.dproj" /target:Clean;Build /p:Platform=Win64 /p:config=debug
 set BUILD_STATUS=%ERRORLEVEL%
-if %BUILD_STATUS%==0 GOTO GUI
+if %BUILD_STATUS%==0 GOTO Updater
 pause
 EXIT
 
+:Updater
+msbuild.exe Updater\Updater.dproj /target:Clean;Build /p:Platform=Win32 /p:config=release
+set BUILD_STATUS=%ERRORLEVEL%
+if %BUILD_STATUS%==0 GOTO GUI
+
 :GUI
 msbuild.exe GUI\GUIDelphiDevShell.dproj /target:Clean;Build /p:Platform=Win32 /p:config=release
 copy GUI\GUIDelphiDevShell.exe Win64\Debug\GUIDelphiDevShell.exe

Build_x64Release.bat

@@ -1,4 +1,4 @@
 BRCC32 VersionInfo.rc
-call "C:\Program Files (x86)\Embarcadero\RAD Studio\11.0\bin\rsvars.bat"
+call "C:\Program Files (x86)\Embarcadero\Studio\18.0\bin\rsvars.bat"
 msbuild.exe "DelphiDevShellTools.dproj" /target:clean;build /p:Platform=Win64 /p:config=release
 pause

Build_x86Debug.bat

@@ -1,4 +1,4 @@
 BRCC32 VersionInfo.rc
-call "C:\Program Files (x86)\Embarcadero\RAD Studio\11.0\bin\rsvars.bat"
+call "C:\Program Files (x86)\Embarcadero\Studio\18.0\bin\rsvars.bat"
 msbuild.exe "DelphiDevShellTools.dproj" /target:Clean;Build /p:Platform=Win32 /p:config=debug
 pause

Build_x86Release.bat

@@ -1,4 +1,4 @@
 BRCC32 VersionInfo.rc
-call "C:\Program Files (x86)\Embarcadero\RAD Studio\11.0\bin\rsvars.bat"
+call "C:\Program Files (x86)\Embarcadero\Studio\18.0\bin\rsvars.bat"
 msbuild.exe "DelphiDevShellTools.dproj" /target:clean;build /p:Platform=Win32 /p:config=release
 pause

DelphiDevShellTools.dpr

@@ -3,11 +3,6 @@ library DelphiDevShellTools;
 uses
   {.$IFDEF MADEXCEPTS}
   {$IFDEF DEBUG}
-  madExcept,
-  madLinkDisAsm,
-  madListHardware,
-  madListProcesses,
-  madListModules,
   {$ENDIF DEBUG}
   {.$ENDIF MADEXCEPTS}
   System.Win.ComServ,